





Ihre Computerei 
Johannisthaler Chaussee 
1000 Berlin 47 
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1000 Berlin 12 
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Buxtehuderstraße 24 
2100 Hamburg 90 


Micro Computer Christ 
: Kriooper Weg 59 
2300 Kiel 


Renken Computer Systeme 
Bismarckstraße 150 
2940 Wilhelmshaven 


Computer Studio 
Rebenring 49 -50 
3300 Braunschweig 


Data Becker 
Merowingerstraße 30 
4000 Düsseldorf 


Kirchner Elektronik 
. Grabenstraße 90 
4100 Duisburg 


Computer -Centrale 
Douaistraße 1 
4350 Recklinghausen 


Regensbergsche Buchhandlung 
Alter Steinweg 1 
4400 Münster 


Fa. H.-A. Brinckmann 
tburger Straße 17 
4500 Osnabrück 


Gerhard Knupe oHG 
Güntherstraße 75 
4600 Dortmund 1 
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ce Computer Studio 
Elisabethstraße 5 
4600 Dortmund 1 


Baffi Elektronik 
Paulusstraße 19 
4800 Bielefeld 1 


Buchhandlung H. Gonski GmbH 
Neumarkt 24 
5000 Köln 1 


P+M Elektronik 
Buchheimer Straße 19-23 
5000 Köln 80 


 kbj-data-systems 
Odenthaler Straße 135 
5060 Bergisch Gladbach 2 


RMI Nachrichtentechnik 
Postfach 1526 
5100 Aachen 


Schmidtke Elektronik 
Sandkaulstraße 84 
5100 Aachen 


Peter Räbiger Microcomputer 
Josef-Schregel-Straße 45 
5160 Düren 


Hobby Elektronik 3000 
Victoriastraße 8 - 12 
5400 Koblenz 


Thomas Igiel Elektronik 
Heinrichstraße 48 
6100 Darmstadt 


DM Elektronik 
Triererstraße 4 
6588 Birkenfeld 


Schmitt Elektronik 
Poststraße 44 
6620 Völklingen 





Minninger Elektronik u. Funk 
Lothringer Straße 9 
6630 Saarlouis 


Arthur Rufenach KG 
Dammweg 2 
6900 Heidelberg 12 


Arlt - Elektronische Bauelemente 
Katharinenstraße 22 
7000 Stuttgart 1 


Hallersche Buchhandlung 
Fritz-Elsas-Straße 56 
7000 Stuttgart 1 
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Fa. Stefan Lehmann 
Breitenbachstraße 29 
7613 Hausach/Schw. 
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Fa. Martin Schuster 
St. Pöltenerstraße 4 
7920 Heidenheim i 
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Conrad Computer GmbH 
Schillerstraße 23a 
8000 München 2 


Münzenloher GmbH 
Tölzerstraße5 _ 
8150 Holzkirchen/Obb. 


Fa. Dyras 
Parsivalstraße 8 
8500 Nürnberg 


Büro 2000 / Haas 
Dresdnerstraße 5 
8520 Erlangen 


Computer Laden H. Staudt 
Döberlitzerstraße 15 
8670 Hof 


Fa. H. Schaber 
Industriestraße 4a 
7707 Engen 
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In eigener Sache 


Liebe Leserin, lieber. Leser! 


Eigentlich sollte ja die Rubrik In 


eigener Sache” keine. feste Ein- 


richtung in der GENIE DATA 
werden, es gibt aber wieder soviel, 
daß wir Ihnen mitteilen wollen, 
sodaß wir. uns hier wieder zu Wort 
melden. 

Also, jetzt ist es endgültig: 

Der GENIE DATA Software-Ser- 
vice wird nicht erscheinen. 

Warum nicht? Ganz einfach! 
Einige der Autoren waren nicht 
bereit, uns ihre Programme für den 
Software-Service zur Verfügung zu 
stellen. Deshalb wird der Soft- 
ware-Service nicht‘ erscheinen, 
denn wir haben uns gedacht, daß 
es sinnlos ist, Ihnen. eine halbe Sa- 
che zu präsentieren. Aber keine 
Angst! Wir arbeiten momentan an 
einer Ersatzlösung, und wie die 
aussehen wird, können wir war- 
scheinlich schon in der nächsten 
GENIE DATA berichten. 

Eine andere Sache ist der Sam- 
melband. Dieser wird zwar erschei- 
nen, aber erst im nächsten Jahr. 
Auch dieser Umstand ist ganz 
schnell erklärt: 

Bis jetzt sind ganz einfach zu 


wenig Bestellungen da, als das es 
sich lohnen würde, den Sammel- 
band jetzt schon zu drucken. Wir 
wollen verschiedenen Lesern noch 
etwas Zeit geben zu bestellen, und 
gehen dann in Druck. Den endgül- 
tigen Erscheinungstermin werden 
wir Ihnen rechtzeitig mitteilen. 
So, jetzt wird es erfreulicher! 
Wie Sie feststellen werden, beginnt 
in dieser GENIE DATA unser 
Kurs für die Programmierung in 
Assembler. Der Kurs wird von 
Thomas M. Binzinger geschrieben, 
der vielen von Ihnen als Autor 
fantastischer Spiele für Genie | 
und Colour Genie bekannt sein 
dürfte. Er schreibt diese Serie in 
einer lockeren Sprache und leicht 
verständlich für Anfänger. Wir hof- 
fen, daß Ihnen das Lernen mit 
diesem Kurs viel Spaß macht. 
Übrigens das Tolle an dieser 
Serie ist, daß sowohl Genie und 
TRS 80, als auch Colour Genie 
Besitzer teilnehmen können, denn 
gestellte Probleme werden auf bei- 
den Rechnern anschaulich gelöst. 
Ein "Selbstbau-Bon Bon” ha- 
ben wir in dieser GENIE DATA, 
ein weiteres kommt in der näch- 
sten. In dieser bringen wir Ihnen 


eine Recorder-Steuerung für Ihr 
Colour Genie, die vollautomatisch, 
ohne zusätzliche Software, funkti- 
oniert, in der nächsten bringen wir 
eine. Selbstbau-Anleitung für eine 
RGB-Karte. (Damit Sie endlich 
mal ein vernünftiges Fernsehbild 
mit Ihrem Colour Genie bekom- 
men!}. Übrigens wurden uns beide 
Artikel von der Firma Schmidtke 
Elektronik zur Verfügung gestellt, 
wofür wir uns hier herzlich bedan- 
ken möchten. 

So, jetzt haben wir noch eine 
Bitte an alle Artikel-Einsender. 
Verschiedene Einsendungen, die in 
dieser GENIE DATA nicht ge- 
bracht wurden kommen in der 
nächsten. Wir bitten um Ihr Ver- 
ständnis, daß nicht alles in diese 
Ausgabe gepaßt hat. 

Schreiben Sie uns weiter so 
fleißig Artikel! 

Mit dieser GENIE DATA hal- 
ten Sie die letzte in Händen, die 
vor Weihnachten erscheint. Des- 
halb sagen wir hier noch einmal 
allen Lesern, Abonnenten und In- 
serenten Dank für die gute Zusam- 
menarbeit in diesem Jahr. Selbst- 
verständlich auch allen Autoren. 


Ihre GENIE DATA Redaktion 
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IMPRESSUM 


Copyright (c) 1983 by Ralf M. Hübben, Var- 
lag für Computertechnik, 5429 Marienfats. 
Nachdruck, Vorvielfältigung, Übertragung so- 
wie Speicherung in EDV-Anlagen verboten. 
Bei Bauanleitungen und/oder Programmen 
kann für die: Fehlerfreiheit keine Garantie 
übernommen. werden. 

Die Melnung der einzeinen Autoren muß 
nicht mit der des Verlages übereinstimmen, 
Anfragen an die Redaktion bitte nur schrift- 
lich mit beigelegtem Rückporto. 

Kündigung der Abonnements: Zu jedem Jahr, 
rechtzeitig, vor Ende des Jahres (6 Wochen). 
Jedes Abonnement verlängert sich nach Ab- 
tauf automatisch um ein Jahr. 

Sollte die GENIE DATA aus Gründen, die 
nicht In der Verantwortung des Verlages Iie- 
gen, nicht oder nicht rechtzeitig erscheinen, 
besteht kein Anspruch auf Nachlieferung. 

Für eventuelle Schäden und/oder Foigeschä- 
den an Geräten und oder Bauteilen und/oder 
Datenverlust kann keine Haftung übernom- 
men werden. Der Nachbau unserer Bauaniei- 
tungen und/oder die Anwendung von Pro- 
grammen aus der GENIE DATA erfoigt auf 
eigene Gefahr. Alle Mitteilungen erfolgen nur 
für Amateur- und Hobby-Zwecke,. Irrtum so- 


wis alle Rechte vorbehalten. Es kann keine 
Gewähr dafür übernommen werden, daß die 
verwendeten Schaltungen, Firmennamen, Wa- 
renbezeichnungen und alle anderen Ängaben 
frei von Schutzrechten Dritter sind. 

Sämtliche Veröffentlichungen erfolgen ohne 
Berücksichtigung eines eventuellen Patent- 
schutzes und/oder Gebrauchsmusterschutzes, 
Bei allen Artikel-Einsendungen gehen wir da- 
von aus, daß der Verfasser alle Rechte an der 
Einsendung besitzt, sowie geistiger Eigentü- 
mer ist. 

Über jede Artikel-Einsendung freuen wir uns! 
Honorar: Für Jeden gedruckten Artikel be- 
zahlen wir pro Druckseite ein Honorar von 
50,-- DM. 

Wir gestatten Jederrnann, einen Artikel aus dar 
GENIE DATA zu entnehmen, und in einer 
anderen, nicht kommerziellen, Druckschrift 
zu veröffentlichen, unter der Bedingung, daß 
an der Gestaltung nichts verändert wird, das 
erwähnt wird, daß der betreffende Artikel 
aus der GENIE DATA entnommen wurde 
und daß man uns mindestens ein Exemplar 
der betreffenden Druckschrift kostenlos, SO- 
fort nach Erscheinen, zur Verfügung stellt. 
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STEIGEN SIE EIN IN IHREN FIREBIR D COMMANDER zeigen Sie Ihren Freun- 
den und der Welt, daß Sie ein Sieger sind! Einfach ist der Kampf nicht um zu siegen 
und die Erde zu retten. 


er 


Jedes Spiel für 
COLOUR GENIE 
ist 2x auf Cassette 
kopiert! 
BESTELLUNGEN | - FR 
werden sofort am Produktion: Heinz Hübben 
gleichen Tag an Sie Reatisation:und Special-Effects: T. M. BINZINGER 


abgeschickt! Weltvertrieb: Fa. Heinz Hübben, Abt. Software-Verlag 
Bei Vorkasse 


Mühlbachstraße 2, D-5429 Marienfels/Taunus 
durch Scheck oder : j i 
Postbar, sparen Sie Preis: NUR DM 49, 7 
die Nachnahme- BRRSESHEEGERFERERE EN ne 
gebühren | 


FIREBIRD,-rettet die Erde! COLOUR-GENIE 
Sie sind der Kommandant des Firebird, ein Raumschiff, daß seinesgleichen sucht. Bis’ 
an den Zähnen bewaffnet treten Sie den Angreifern aus dem Weltall entgegen um die 
Erde vor der Vernichtung zu bewahren! AUF SIE KOMMT ES AN COMMANDER.Beste- 
hen Sie den Kampf mit 16 Feindflotten! Sie haben unbegrenzte Schußenergie mit Ihren 
Neutronenstrahlen-Kanonen. Sie haben jeweils 2 A-Bomben. Und nach der Befreiung 
von jedem neuen Planeten erhalten Sie zusätzlich 2 A-Bomben. Es ist klar, bei Anwen- 
dung der A-Bomben ist eine ganze Feindflotte sofort eliminiert. Bei ganz gefährlichen 
Situationen können Sie einen Schutzschild aktivieren und trotzdem Feinde abschießen! 
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neuen. 




















INHALT 


MEMORY 

Wieder einmal ein Tele- ‚Spiel in der GENIE DATA. 
Aber diesmal keines das schiesst, sondern eins, das 
Ihr Gedächtnis trainiert. : Seite 7 


KLEINANZEIGEN 

Wenn Sie etwas suchen oder wenn Sie etwas los- 
werden wollen, schauen Sie einmal in unsere Klein- 
anzeigen auf Seite 11 


RECORDER STEUERUNG 

Was viele andere Computer können, kann das Co- 
lour Genie von Hause aus nicht, nämlich den Re- 
corder steuern. Unsere Bauanleitung zeigt Ihnen, 
wie Sie Ihrem Computer die Fähigkeit vermitteln 
können. Seite 12 





ELEKTRONIK TEIL 3 

Diesmal zeigen wir Ihnen, wie man das Geheim- 
nis der bunten Ringe auf den Widerständen: ent- 
rätselt. Selbstverständlich ist auch wieder das pas- 





sende Programm dabei. Seite:13 
ABENTEUERLAND 
Ein neues, tolles Abenteuerspiel für Ihr Genie 
I, Il oder il. Wenn Sie Mut haben, tippen Sie 
es ein und versuchen das Rätsel zu lösen. 

Seite 16 





PLOTTER 


Dieses Programm hilft ihnen, auf Ihrem Colour 


Genie fantastische Grafiken zu erstellen, diese zu 
speichern oder sie auszudrucken. Mit diesem: Pro- 
gramm können Sie ein richtiger "'Elektronik-Picas- 
so" werden. 





HIRES HARDCOPY 
Wie man rationell Grafiken des Colour.Geni 


Ihnen unser Programm ab Sei 





RESET 
Wenn man beim TRS 80 den Reset: Tasten) betä- 


tigt, wird leider jedes vorhandene Programm ger 
löscht. Wie man dem entgegen wirkt, ag unsere 
. Seite 27. 


Bauanleitung ab 





COMPUTERTAG | 
Was alles beim ersten Computertag::in.Hof::los 
war, erfahren-Sie in unserem Bericht ab‘ 

Seite 29 





DISKETTEN DATEI 
Dieses Problem ist Ihnen sicher bekannt: Man 
hat ein tolles Programm auf irgendeiner Diskette, 
weiß aber nicht, welche es ist. Schaffen Sie also 
mit diesem Programm endlich Ordnung! 

\ ze Seite 29 


Seite 23 
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GRES 
Bisher hatten wir viel zum Thema Colour Genie Gra- 


‚fik. Man kann.aber auch mit dem Genie I, {I oder 


III malen’. Benutzen Sie unseren Grafik-Editor 
ab Seite 33 





ASSEMBLER TEIL 1 

Thomas M. Binzinger, der Ihnen als Autor vieler 
toller Spiele bekannt sein dürfte, hat sich bereit 
erklärt, Ihnen sein Wissen zu vermitteln. Machen 
Sie also mit und lernen Sie Maschinensprache! 
Übrigens ist dieser Kurs so gehalten, daß sowohl 
Colour Genie Besitzer und TRS 80 oder Genie Be- 
sitzer mitmachen können! Seite 36 





3D Körper 
Wie man mit dem Colour Genie äreidiMensionale 
Grafiken macht, sehen Sie hier Seite 38 





EIN/AUSGABE IN MASCHINENSPRACHE 

Es ist nicht ganz einfach, in Maschinensprache 
Werte zu übernehmen oder zu übergeben, deshalb 
bieten wir Ihnen hier eine Reihe nützlicher Unter- 
Programme. ' . Seite 41 





LAUFSCHRIFT 

Mit diesem Programm können Sie Ihr Genie zur 
Schaufensterreklame einsetzen. Dieses Programm 
hilft Ihnen große Schriften zu produzieren und 
vieles andere mehr. Seite 44 





MINIMON 

Wir veröffentlichen oftmals Programme in Maschi- 

nensprache. Wenn Sie diese eingeben und benutzen 

wollen, ist dies das richtige Hilfsprogramm ! 
Seite 51 





HYPOTHEK 


‚Wollen Sie bauen? Oder brauchen Sie zu anderen 


wecken eine Hypothek ? Dieses Colour Genie Pro- 


‘gramm hilft ihnen Ihre Finanzen zu planen. Also 
‚los Seite 55 





GRAFIK ÜBERSETZER 

Übernehmen Sie hochauflösende Grafiken in den 
Textmodus des Colour Genie und schon können 
Sie jedes Bild mit Text beliebig. mischen! Alles was 
Sie dazu brauchen ist das passende Programm und 
das liefern wir Ihnen ab Seite 57 





INDER NÄCHSTEN GENIE DATA 

So, damit ist diese GENIE DATA beendet. Versäu- 
men. Sie aber auf gar keinen Fall die nächste 
GENIE DATA! In ihr finden Sie unter anderem: 
Die Fortsetzung der Serien Elektronik und As- 
sembler, einen großen Colour Genie Software-Test, 
eine Colour Genie RGB-Karte zum selbstbauen (I), 
viele tolle Programme und, und, und ... 























L. Röckratb. 
Noppiusstraße 19; 5100 Aachen 
.“ Telefon (02 41) 34962, 


TRS-80 MI + Ill. 


GENIE I, U + HM 


Die absolute BASIC-ERWEITERUNG 


NEWBAS 


@ schnelle und flexible Zeilenumnumerlsrung 

© bellsbiges Zusammenladen mehrerer PIERIN 
von Kassette (MERGE) 

@ Suchen im BASIC-Text e B. nach Variablen): i 


@ hexadezimele Konstante! 
“ Deren, INSTR, MID$, " LINEINPUT, DEFUSR, 
SRO-3 {kompatibel zum DISK-BASICH. 


nr jetzt zusätzlich zum alten Preis: 
® ne vet beliebige Zeile (RESTORE N) 
@ Umteitu: Bildschirmausgaben auf Druckerund 


umgekeint (ROUTING). 
Alles in nur 1,7 KByte für DM 59. . 


oder als SEDBAS mit integriertem er 
{SEDIT) für DM 89.— inkl. MwSt, 


TRS-80 MI + Ill 
GENIE 1, 11 + I 


Zeit ist Geld!] 
Sparen auch Sie mit AR RAY 


beim Aufzeichnen und Lesen von 
Feldern {auch Strings) bis zu 95% 


(Tape) oder 80% (Disk) Zeit: und 
Speicherplatz (im Speicher und auf 
„| Kassette oder Diskette). 


Mit FIELD PRINT #n, A$(100) z. B. 
ARRAY für Tape {und Disk) kestet: 


nur 44, DM (54. DM) inkl.MwSt. | 


ROM-Listing 


An Model 18 


F. NEU! . 
N. Grosser, ? Röckrath: 


ROWListing 


© vollst. disassembliert und deutsch kommentiert : 


.» RAMVO-Aduesen 


© 2 vollständige Listings 3000H-937FFH (Amar 


nisch/Deittsch) und Vergleich 


@ Vergleich Model I / Model Ill EEE . 
e.genaue Erläuterung beider Kassettonformate j 


j .. über 150 Seiten 
= für nur 79 DM inkl. 7% MWSt. 


L. Röckrath 
9, 5100 Aache 
N od 41) 349 2 


GENIE I, I + HI 


L. Röckrath 


Noppiusstraße 19, 5100 Aachen _ 
Telefon (02 41) 349 62 


TRS-80 MI + I 
GENIE 1, II + IN 


















SBUG: macht Maschinenprogramme transparent 


Monitor, Disassembler und TRAGE |: 
@ !ädt sich. direkt in den gewünschten Sierra: 
.| © Diskattenzugrift/Kassettenzugriff 
© für spezielle Anforderungen konfigurierbar ‚ 
© SUPERZAP-Format-Anzeige mit ASCII-Eingaba 
@ programmierbar : . 
@ ROM und BOS.voll tracehar 
.  @ Echtzeit-Unterprogramme und Segmente 
@ Einzelschrittausführung (auch im ROM). 
© Breakpoiatsm. wählb. RST, BEER! 
© Blindiauf bis def. Bedinguni 
. {bestimmte Registerstände, Speicherzugrife, 
Befehlsgruppen, Tastenkombination) 
® EL: mit disass. Befehl + Register oder 
‚Adreßbereich 


SBUG .. (relocatibel) 


der einzige Monitor, der nie da 
liegt, wo Ihr Programm hin soll! 


Außerdem: DISASSEMBLER 
prog. TRAGE (auch ROM + Dos)” 
lieferbar für Disk + Kassette 


Weitere Informationen über Sonder-Info e 
oder in mc 5/83, S. 29 


:DM 139. (inki. MwSt.) 


TRS-80 MI + II 


noenn 


L. Röckrath 


Noppiusstraße 19, 5100 Aachen 
Telefon. (02 41) 3 49:62. 


NEU! 
"N. Heicke, L. Röckrath: 


m |} ; 
ROM- areberh 
© volist. disassembliert unid: kommentiert 
1. (0000H-3FFFH) 
® RAM-VO-Adressen 
s.neueste Version! 
+ Bildschirmformate, Speicheräufteilung 


© genaue Unterprogrammerklärungen }- 


für den Programmierer : 
‚| e Ein absolutes Muß für jsden Anwender 


für nur 59 DM (inkl: 7% MwSt.) 


L. Röckrath 


Noppiusstraße 19, 5100 Aachen 
Telefon (02 41) 34962. 


“ Für schnelle Anfragen: GENIE DATA Kontaktkarte benutzen | 


IBildschirmeditor (SEDIT) 


- [Befehls und bewegen Sie sich völlig frei über den]. 


'TESTKASSETTE 


[völlig unverbindlich gegen DM 2.- Schutzgebühr 


ROM-Listing——ROM-Li sti ng 
COLOUR-GENIE 





L. Röckrath 


: Noppiusstraße 19, 5100 Aachen 


Telefon (02 41) 34962 


.TRS-80 MI + Ill 


GENIE , I +1 
COLOUR-GENIE 









[Eine neue Dimension: 






Sprengen Sie endlich die Fesseln des EDIT- 









Bildschirm und fügen Sie ein oder löschen Sie, 
woSie wollen. . DM 39, 
Auch für Disk-Systeme auf Disk für ER i 
‚|TRSDOS, NEWDOS80 V1,0 + V2.0. 
Noch nicht überzeugt? 






in Briefmarken anfordern. (Auch für DISK-User.) 
Alle Preise inkl. 13 % MwSt.) 










WEITERE 
HARD- UND 
SOFTWARE 
FÜR COLOUR 

:GENIE AUF 
ANFRAGE. 


SONDERPREISE! 


TRS-80/VG 
ROM-Listing 


® Vollst. disass. und deutsch kommentiert; |' 


® RAM-\/O-Adressen; 
@ Vergieich der verschiedenen TRS-80/ 
 VIDEO-GENIE-Versionen; : 
© 150 genau erläuterte Unterprogramme; 
@ und vieles mehr (s. auch Kritiken in me 
1/82 und cp 13/82). 


129 Seiten gebündeite (und aaa 
Information nur DM 69,— 


L. Röckrath- 


Noppiusstraße 19, 5100 Aachen: 


.. Telefon (02 41) 349 62 


DEREN UESEHITSUNATETIEUNSETITETTAeEntEIHAASGEr SERGEANT See 


aa a 1 a a ereecnieieeenerineeeETEEE 
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Bei ‚diesem Spiel für das Colour grauen Zellen. Es geht nämlich da- Ansonsten ist zu diesem Spiel ei- 
Genie handelt es sich um ein Trai- rum, sich die Positionen von Zah- gentlich nichts mehr zu sagen. 


nings-Programm für Ihre 


10 
20 
Au 
40 
50 
&0 
70 
30 
FO 





SOFTWARE 
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MEMORY 


kleinen len in einem Feld zu merken. Erwin Weigend 


CL5 
CLEAR 1000 
DIM TiZ4) 2DIMF (24) DIMZ(24) :DIMG (24) 
FRINT=FRINTSPRINTSFRINT 0 
COLOUR. 7 
FRINTTARB(7 ) "teten gesteneetefeipntii 
FRINTTAB(7 )"* # 
FRINTTAB:IT7 "+ ZAHLEN--MEMÖRY + 
FRINTTAB(7 I)" * 
j 


100 FRINTTAR (7 ) "etektiteeeeengnei 
110 FRINT=FRINT 
120 FOR I=i1 TD 500:NEXT I 

















8 GENIE DATA SOFTWARE 
ıi=0 COLOUR 4 
140 PRINTBS27,"von Erwin WEIGEND 


150 


160 


170 
180 
190 
ZOO 
10 
AO 
E20 
240 
250 
260 
270 
280 
290 
300 
Aid 
ro 
330 
5340 
350 
560 
370 
E80 
FO 
200 
410 
420 
30 
440 
450 
A&O 
470 
480 
470 
500 
510 
20 
530 
S40 
so 
560 
570 
Sn 
SI 
O0 
Bid 
20 
630 
640 
50 
225) 
Sao 
670 
880 
690 
700 
710 


FRINT@#12. "Maulbronner Str. 51 
FRINTB6S2: "7129 GUEGLINGEN 
PRINT®E732."Tel. 07135-777868 ° 

REM: SEFTEMBER 1985 
PRINT:PRINT:FRINT:SPRINT 

COLOUR 1 

FRINTTAB(10)"< Bitte warten ! > 

REM: ERZEUGUNG DER ZAHLEN 

FOR I=1 TO 24 

PRINTE9S7, "9" | + 
T{I)=RND (24) 

FOR H=1 TO I 

IF T{I)=T(I-H) THEN 350 

PRINT@957," " 

NEXT H 

NEXT I 

FRINTES27;" „ 
FRINT@G12; " n 
FRINTBOS2, " n 
FRINTETE2," " 
REM: ERZEUGUNG DER ABFRAGE REIHENFOLGE 
FOR I=i TO 24 ' 
FRINTEI22, "2" 

F(T)=RND (24) 

FOR H=1 TO I 


IF F{I=FiI-H) THEN 380 

FRINTEPER," " 

NEXT H 

NEXT I 

ELS 

FRINT=FRINT:FRINT:FRINT 

COLOUR 2 

FRINT"WAEHLE DEINEN SCHWIERIGEKEITSGRAD" 
"FRINT 

FRINT"”£1> ZEIT ZUM EINFRAEBEN: 1 MIN la" 
FRINT"<S2> ZEIT ZUM EINFRAEGEN: Z MIN B 


FRINT"<Z> ZEIT ZUM EINPRAEGEN: 3 MIN “ 
FRINT"<4> ZEIT ZUM EINFRAEGEN!: beliebis « 
PRINT=FRINTSFRINT 
INPUT "WAEHLEE" 
=1 THEN TZ=60 
=2 THEN TZ=120 
=3 THEN TZ=180 
=4 
4 


SER SE 


THEN TZ=500 

OR Tx1l THEN 540 

ELS-, 

FOR I=1 TD 4 

COLOUR 9 

FRINTTAB(ZISTRING$ (37, 202) 

FOR II=1 TO 4 

FRINTTAB (ZI CHR$ (202) 3 TAB (SI CHRS (ZI) H TAB 1A) CHR$ (225) 3 TAB (ZO)CHRS$ 
TAB (26) CHR$ (2259) 5 TARCHZICHRS$ (225) 3 TAB (38) CHRS$ (202) 
NEXTII=NEXTI 
FRINTTARB (2) STRING$ (37,202) 

COLOUR 3 

FOR I=1 TO 24:READZ (I) =PRINT@EZ (DD +82." "SNEXT 
COLDUR 4 

PRINTESFF: " ZAHLEN-MEMORY" 


| 
\ 
| 
| 
| 





cc Computer Studio GmbH 





Elisabethstraße 5 
4600 Dortmund 1 














260 FOR H=1 TO I Tel.: 0231- 528184 | 
270 IF T{D)=TtI-H) THEN 250 Tx 822 631 ccesd : 
280 FRINTEIGT." " \ 
300 NEXT I GENIE Il \ 
z10 FRINTES27," 64 KB RAM, 2x720 KB Disk-Speicher, i 
u Bildschirm 64x 16 oder 80x24 Zeichen. TRS-80® | 
Kr Ye a ar Mod. 1 kompatibel } 
ER u R 1 NT as ı ns CP/M® fähig 6900 -- \ 
u ec GENIE I oder I \ 
og ERINIESS2: 64 KB RAM, Microsoft-BASIC, Bildschirm 64x16 \ 
Zeichen, Level IV ROM, TRS-80® Mod. 1 Ä 
=40 „Fr INTEFTA2." kompatibel 998,- ih 
NEU: TANDY MODELL 100 ab 1850,-- h 
350 REM:ERZEUGUNG DER ABFRAGE REI COLOURGENIE DO | 
HENFOLGE Neueste Version mit Meßinstrument! ; I 
a ge, a 16 KB RAM, Microsoft-BASIC & Grafik, 16 Farben N 
soo FOR I=i TOD 24 auf Ihrem Farbfernseher, TRS-80° Mod. 1 i 
370 FRINTEIZZ. BASIC kompatibel 570,- | Ü 
=380 FILDI=RND{?M) dto. mit 32 KB RAM 625,- . 
=50 FOR H=1 TO I. ® TRS-80 ist eingetragenes Warenzeichen der Tandy I 
200 IF FIiDD=FCI-HM) THEN 3850 en ist eingetragenes Warenzeichen von Digital | 
410 FRINTEIZZ:" * : l 
420 NEXT H PERIPHERIE | 
+20 NEXT I ji 
440 CL5 Slim Line Laufwerk, 40 Track, SS/DD, i 
450 FRINT:FRINT:FRINTEFRINT 250 K-Byte Speicherkapazität 625,-- i 
450 CTOLDUR & Slim Line Laufwerk, Doppelfloppy, kompl. j 
470 FRINT"WAEHLE DEINEN SCHWIERIG mit Gehäuse, Netzteil u. Kabel 1499, | 
KEITSGRAD" ee aumerke und Kapazitäten auf Anfrage | 
480 FRINT = ö i 
an ae ie or Floppy Disk Controller für Video Genie und Tandy \ 
470 FRINT"ÄAL = ZE IT ZUM EINFRAEGEN (double u. single density) inct. Drucker Interface und f 
ı i MIN pen 2 BASF 6106, im Gehäuse mit Netzteil und Kabel; i 
500 FRINTISER SEHE ZUM EINFRAEGEN voll Software kompatibei zu 2 
;» > MIN E Tandy TRS-80® 2199,- \ 
=10 FRINT"<SH zeit ZUM EINFRAEGBEN Expansion Interface für TRS-80® incl. 32 K RAM und 
» = MIN <= 2 Jahre Garantie . 925,-- 
520 FRINT"<4> ZEIT ZUM EINFRAEGEN DRS DEIBIN.Connelle FürTersy ung aa 
: beliebia «4: j 5 an ö " 
16KE t für Col G I. Einb 99,-- 
540 INFUT "WAEHLE:"S 1920 Pkt. pro Zeile s j 1195.-- 
550 IF T=1 THEN. TZ=&40 Zenith Monitor, grün, ZVM 121 248,-- 
Sao IF T=Z THEN TZ=120 ‘: Original'Sanyo Monitor, bernstein entspiegelt 318,-- 
370 IF T=3 THEN. TZ=180. EEE 
580 IF T=4 THEN TZ=500 SUR La 
396 IF T>4 OR “1 THEN.S 
406 cLs Re N.3A9 „Ei. BASF Disketten, Qualimetrik, Double Density 
, : geprüft 10 Stück 59,-- 
old FOR I=1 TO 4 v Di . K 
20 COLOUR 9 erbatim Disketten mit Verstär ungsring 
sol . 10 Stück ab 79,-- 
&:c FRINTTAB(ZISTRINGS (37, 202) Datencassette C 20 330 
GA0 FOR II=1 TO 4 Farbbänder für: 
30 FRINTTAR(EICHRS (ON) S TAB (SICH Tandy Line Printer I, li u. IV je 15... 
R& (2259 3 TAECIAICHRS (ZI ES TABCZOIT Tandy Line Printer III u.V je 19 50 
HR$ (225) 5 TAB (26) CHRS (225) 5 TAR(3Z) Tandy DW li je 17 . 
CHR$ (225) 3 TAB (38) CHR$ (202) Epson MX 80 ie 2.- 
S60 NEXTITENEXTI Itoh 8510, 1550 je 24,- 
670 FRINTTAB(ZISTRINGS (77,202) Oki Microline ie 9,50 
680 COLOUR 3 £ 5 Rest auf Anfrage. 
70 FOR I=1 TO Z4READZ {TI :PRINTE Alle hier angebotenen Produkte sind ab Lager lieferbar. 
Z{D+B2: "8 ":NEKXT Alle Preise incl. Mehrwertsteuer. 
700 COLDUR 4 Neu: 8 Seiten Colour Genie Softwareliste 





710 FRINT@893; "ZAHLEN-MEMORY" Kirschen na nn Freue tie GolaurSeniei 

















a 
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720 FOR I=l TOD 1500:NEKXT 

720 FOR T=sl TO 24 

7406 FRINTEZ (II +BL: TED ENEKT 

FO IF TZ=5ob GOTO 1250 

7&0 FRINTEBBZ: STRINGE (CO. 30 

775 COLOUR 5: FRINTESFF,"ZEITENTZ"” 

7806 FOR I=1 TO 500:NEXT 

Fü TZ=TZ-l = 

soo IF TZ>0 THEN 770 

5106 FRINT&@ESSS. STRING$ (37: 32) 

Bz0 FOR I=l TO 24 

SEO COLOURE 

340 PRINTAZITI+B1,"% " 

5 NEXT 

5a0 DATA 45:49:55: 61:57: 75 

870 DATA 243: 249: 255: 26 l» 26/275 

3850 DATA 443,449. 459: 461: 467:475 

BIO DATA 6455 649: 695: 66 1557.67 

700 COLDUR & 

Yin FÜR Jel TO 54 

720 FRINTESSO:. STRINGE$ (20, 22) 

730 FRINTEI2O:STRINGS (20,22) 

745 COLOUR 4 i 

750 FÜR Y=1 TO 3 :I=sFil)SFRINTEZ{TD? +2: CHRSCRZIS FOR H=i TO LOOSNEKT Hi 
FRINTEZ{IDI+2: "J"IFOR H=l TO IO0O:NEKT H :NEHKTY 

Fan COLDUR 4 

77O FLAY(l>5r 1» LO) AFLAY(Z» 6: > LO) FOR H=LTO ICH NEXKTHIFLAY COLA let» 0) FLA 
Yıizal»la0 i 

750 FRINTESSE: "DEIN TIF"SSINFUT G{D 

770 FRINTEZ (TD)+2," 

1900 IF GiJ)=T{I) THEN 1050 

1010 FerF+l 

1020 FLAY(I1»4:1:12)s FOR H=i TO SOMNEXTH 

1030 PLAY(ZıIn6al2): FOR Heil TO BOSNEXTH 

1940 FLAY{Z> 11:0) 

1050 FLAY{Ia1>» 1:0) 

1080 FRINTEZ (TI) +BL," —" 

1070 GOTG 1110 2 
1090 FLAY (1,9: 5: 15353 FOR Heil TO SOSNEXTIFLAY SEN 
:NEXTEFLAY(I1:5: 1»15) FOR Hel TO SO NEXTSFLAY Geb 
1070 COLOUR 7 En 
1100 R=R+l:FRINTEZ (I) +85," "SG0OTO 1110 

1110 COLGUR 74FRINTSF0S. "RICHTIG"R" 

1120 FRINTEIAS. PFALSCH "FF" 

1120 NEXT J 

1140 FRINTESB2: STRING$ (15:37) 

1150 FOR H=1 TOD 10O00:NEX 

1180 COLOUR 5 j 

1170 FOR I=i1 TO 24:FRINTEZ (I) +41: TIIS NEXT 
1180 BE=FEEH (32767) BE 
1170 IF R>BE THEN 1700 ELSE 1710 : 
1200 COLOUR TAFRINTESBSE:. "DAS IST BESTERGEENIS'"SRE=RIGOTO 1220 

1210 COLOUR 3:PRINTE882: "BESTERGEBNISS"BE""G 

1220 COLOUR 10: FRINTTAR (2) "NOCHMAL? SJ/N>"SS INPUT A% 

l230 FÜHE 327857: BE 

1240 IF A$="J" THEN RUN ELSE END 

1250 FOR H=1 TO 1500: NEXTRIFRINTEBST: "EINFRAEGEN: DANN EINE TASTE DRUE 
CHEN!" 

lZ&a0 TS=INKEYS:IF T$="" THEN 1240 

1270 GOTD 810 






sEOR H=1 TO 50 





hehe LnEeLOR SANT EELErTTLUD EEE 
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Suche Literatur für TRS-80 
z.B. 80 Micro u. ä. G. Drey- 
er Tet. 06121/562238 





Tausche V.G.-Prog. (100 


St.) (Cassette). IRIS OT-. 


TEN - Hermann-Ost-Str. 16 
5000 Köln 80 





Computer Junkie verkauft 
Sammiung! Inkl. Genie-Tei- 
le. Liste gegen 1 DM. Mc 
Nicol, Postf. 1205, 6128 
Höchst 





Verkaufe 16K-Erw. f. CG 
neu f. 80 DM. Tel. 02137/ 
77455 





GENIE lHil Anwender sucht 
gleichen im Raum Geilenkir- 
chen-Herzogenrath-Alsdorf 
zw. Erfahrungs-Austausch. 
Zuschriften unter Chiffre 
GD/05/83/01 an Ralf M. 
Hübben, GENIE DATA, 
. Verlag für Computertechnik 
"5429 Marienfeis/Ts. 


KLEIN- ANZEIGEN 


Visicalc-Demodisk für TRS 
80! Ideal auch für Händ- 
ler da selbständiger Ablauf 
mit Wiederholung! (Schau- 
fenster.) Auch Dialogbetrieb 
zum erlernen! Disk für TRS 
80/VG nur 50,-1 07321/ 
24315 


Second-Hand-Computer 
Zubehör-Datencassetten-Li- 
ste von: Udo Jourdan, 
Darmstädterstr. 66, 6080 
Groß-Gerau, Tel. 06152- 
81704 


Neue Programme für TRS/ 
VG: Laufschrift, Quadrato 
und Serpents (100% Maschi- 
nensprache) für 12,50 DM/ 
PGM inct. Kassette und Por- 
to zzgl. NN oder per VR- 
Scheck. Alle drei DM 30! 
Jörg Tegeder, Keplerstraße 
5, 5206 Neunkirchen-Seel. 1 


Genie User sucht Kontakte 
und Tauschpartner (V.G. I 





64K) Kurt Wagner, Vieh- 
trifftstr. 77, 6725 Römer- 
berg 3 


Genie Il, Diskettenlaufwerk, 
Expander, Bildschirm und 
Drucker zu verkaufen, Preis 
nach Vereinbarung. 
Tel.: 04166/7291 


Suche Comp.-Club in mei- 
ner Nähe oder Genie I1l-An- 
wender (bin Neuling!) 
02451-41188 


Colour Genie und viel Soft- 
ware + Rec. + viel Lit. für 
650,-- 02626/7377 


Suche Colour-Compiler so- 
wie weitere Soft- Hardware 
für alte Genies. B. Eckstein 
Hauptstr. 1385014 Kerpen 1 


Ergänzung zum original TCS 
Colour Assembler: 3,3 KB 
Disassembier in. Maschine 
nur 20 DM. Info 80 Pf bei 





für Heim & Hobby: Colour-Genie 


Jan Hemming, Bert-Brecht- 
Str. 4, 6107 Reinheim 3 





* COLOUR GENIE * 
SPRITE-GRAFIKEN IM 
FGR-MODUS. Jetzt schrei- 
ben SIE prof. Spiele. Hand- 
buch inkl. Editor + Routi- 
nen für nur 28,-- gegen NN: 

P. THOMAS 
*Köllenhof 22, 5307 Wacht- 
berg * 





Paral. Printerinterface f. Ge- 
nie I 95,--! Ronald Stöhr jr. 
Buhlenweg 31, 7750 Kon- 
stanz 





Raum Hamburg. Wer hat In- 
teresse an Gründung eines 
Colour-Genie-Ciubs. Bitte 
melden bei Th. Kolbeck, 
Trettaustr. 13, 2102 Ham- 
burg 93 





Erfahrungsaustausch Colour 
Genie? H.-s. Winterscheid, 
Bennauerstraße 1, Bonn 1, 
0228/224353 


Das Colour Genie 


Vergleichen Sie doch einmal: Welcher Com- 
puter bietet ihnen soviel wie das Colour 
Genie, und das zu einem so guten Preis? 
*% Z80 CPU - ein Industriestandard 
*% Professionelle Schreibmaschinen-Tasta- 
tur, (Keine Gummitasten, kein Fingersalat 
beim Tippen!) 
%* 16 K RAM {Arbeitsspeicher} schon im 
Grundgerät 
% 16 K ROM mit dem org. Microsoft Le- 
vet II-Basic, erweitert mit Grafikroutinen; 
TRS 80 - kompatibel 
% Keine teure Modulbox erforderlich 
* RAM-Erweiterung direkt einsteckbar 
*% Druckerinterface bereits eingebaut . 
* Serielle Schnittstelle eingebaut 
% Jeder Kassettenrecorder anschließbar, 
. auch der schon vorhandene 

* Monitor und TV-Ausgang 
*% Und, und, und aeeenseeesssenneeenennnanannnen 




























SCHMIDTKE 


electronic 
Sandkaulstraße 84/86 


5100 AACHEN 
Tel. 0241-232 17 





























Preise und Zubehör: 


Colour Genie mit 16 K RAM;:16: Farben, jetzt mit 
NF-Verstärker und eingebautem Lautsprecher 575,-- DM 
Erweiterungsmodul auf 32.K: RAM 98,-- DM 
Colour Genie direkt mit 32.K:RAM 

Druckeranschlußkabei Centronics-Parallel 
Power -Joystick : b - 

Analog Joysticks (2 Stück: mit:10er-Block} 245,-- DM 


Kassettenrecorder zum CG passend ab 89,-- DM 
Technisches Handbuch mit Schaltplänen 49,-- DM 
ROM-Listing, deutsch kommentiert 59,-- DM 


Matrixdrucker, DIN A4 breit, mit hochauflösender 
Grafik, Umlaute, echte Unterlängen, etc. 598,-- DM 


Software-Programme: 


Plotter - zeichnet mathematische Kurven 39,-- DM: 
Basic Compiler - erzeugt Maschinensprache 69,-- DM! 
Z 80 Assembler - zur'Eingabe in Memonics 69,-- DM 
Monitorprogramm 39,-- DM 
FROG-MAN, das bekannte Video Spiel 39,-- DM 
PAC-LAB, das beste. PAC-MAN, das es je-gab 39,-- DM 
PAC-LAB II, das.PAC-LAB für Spezialisten 49,-- DM 
Colour Kong, berühmt und faszinierend 69,-- DM 


Katalog mit über 85 Spielen und anderen Programmen für 
Schule und Hobby kostenlos anfordern! 


Geschäftszeiten: Service: 
Mo.-Fr. 10.00 Uhr bis 13.00 Uhr Eigene gut ausgerüstete 


14.30 Uhr bis 18.30.Uhr Service-Werkstatt. 
10.00 Uhr bis 14.00 Uhr Computer-Fachberatung. 
Donnerstags geschlossen WIR KENNEN UNSERE 








COMPUTER! 
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TRS 80 und PET Besitzer haben 


sicherlich eine praktische Funk- 
tion ihres Gerätes schätzen ge- 
lernt: Die automatische Motor- 
steuerung ihres Cassettengerätes. 
Die Befehle zum Lesen bzw. 
Abspeichern eines Files bewirken 
nämlich auch ein rechtzeitiges 
Starten und Stoppen des Motors. 
Nun gibt es Heimcomputer, die 
nicht über diese Fähigkeit verfü- 
gen. Das legt die Frage nahe, ob 
man ihnen diese angenehme Eigen- 
schaft nicht 


‚Neues für 


FERTIGPLATINE 389.- DM 


Diskettensoftware, mit Datenträger, Aufpreis 
Praktisches Arbeiten mit Dateien von C.D. Hoffmann 
Deutsche Anleitung f.d. Marked- u. Fixed-item-Dateien, Inhalt: 
MU-, MF-, MI-, FF- u. Fl-Dateien/Wie eröffnet u. wie schließtman 
die Dateien?/Schreiben u.Lesen v.Dat.,usw.,m.Beispiel. 45.- DM 
Disk & andere Geheimnisse v.H.C.Pannington. Ein Interessantes 
Buch über sonst nicht erhältl. Informationen. Ratgeber zur Daten- 
reitung u. Datenwiederauffindung, deutsch 
Druckeranschiußkabel für Colour-GENIE 
Mit IC zur-Pufferung der Status-Signale 
Aarası dazu z.gleichz. Anschluß v.Drucker u. Joysticks 36.- DM 


ordersteuerung 1. Colour-GENIE Ein- u. Ausschalten m.d. 
Computer mit: CLOAD, CSAVE, SYSTEM, INPUT u. EAINT Mit 


LED-Anzeige, nur auf ‘den BUS stecken. 
Portisteueru 
Darauf haben Sie schon 
Maschinensteuerung. Das Gru 
TTL-Pegel und 4 Steuerleitungen 


Adapter mit 16 Kaas als Ausgänge für 220V 10A 
ler, z.Einiesen v.Signalen 280. 


Adapter 16 Eing 
Adapter 8 Fanseiseänge 220V 10A 


; und 8 Eingänge als Optokoppler 
Außerdem führe ich die gesamten GENIE-Geräte von TCS 
Informationen gegen DM 0.80 Rückporto. Lieferung solange Vor- 
rat, gegen Nachnahme oder Vorkasse, zuzüglich Porto.. 


H.Schaber - Genie-Computer 


DJ9RE - 7707 ENGEN 
Tel. 07733/8401 


Industriestr. CE 


nachträglich ver- 


die GENIE’s 


GRAPE Universelies Plottsystem für GENIE I/1l und IN 

Für Drucker m.Einzeinadelanst. u. Plotter. In Verbindungm. hoch- 
auflösender Bildschirmgrafik weitere fantastische Möglichkeiten. 
Deutsches Programm, nur f.Diskette, mitHandbuch 195.- DM 
Hochauflösende Grafik 384 x 192 Bildpunkte. Platine zum Einbau 
in GENIE I/ll u.TRS-80. Treibersoftw. auf Kassette wird mitgeliefert 
BAUSATZ 258.-DM 


für Colour-GENIE, GENIE | und Il 
t: Ein Zusatz z. Geräte- bzw. 
rät beinhaltet 16 INaeN: 





HARDWARE 


Recorder 
Steuerung 


mitteln kann. Nun, man kann! 

Wie das Funktionieren kann, 
wird kurz erläutert, dann wird ei- 
ne praktische Ausführung für das 
Colour Genie beschrieben. 

Die Befehle CSAVE und 
CLOAD bewirken, daß sich im 
Rechner an verschiedenen Stellen 
"etwas tut’. So veranlaßt CSAVE, 
daß ein Basic-File als serieller Da- 
tenstrom über den Cassettenport 
ausgegeben wird, und anhand des 
Schaltbildes läßt sich ein Punkt 
finden, an dem das Signal als TTL- 
Pegel abgenommen werden kann. 
Gebe ich diese Signale auf ein re- 


8&- DM 


triggerbares Monoflop, dessen 
Zeitkonstante länger als die Perio- 
dendauer der Clock ist, so bekom- 


me ich für die Dauer der Aufzeich- 


nung ein High Signal am Ausgang. 
CLOAD fragt ständig den Cas- 
settenport ab; und es läßt sich wie- 
derum anhand des Schaltbildes ein 
Punkt finden; an dem dieses Stro- 
besignai' abgenommen werden 
kann. In der Regel ist das Strobe- 
signal eine Verknüpfung der Port- 
adresse mit dem Read-Signal. 
Auch hiermit kann ich in gleicher 
Weise ein Monoflop ansteuern und 


erhalte so ein High-Signal für die 


Dauer des Einlesens. Die Ausgän- 
ge der Monoflops werden über 
Dioden oderiert und verknüpft 
und steuern einen Transistor an, 
der das Relais zum Steuern des 
Motors durchschaltet. 

Eine Schaltung, die dieser Be- 
schreibung entspricht, zeigt Abbil-- 
dung 1. 

Die Lage der IC’s ist dem tech- 
nischen Handbuch für das Colour 
Genie zu entnehmen. 
steuerung der Monoflops erfolgt 


Die An- 


39-DM I von IC 52 (741S367) Pin 1 und 


79,- DM 
9.- DM 
175.- DM 
280.- DM 


280.- DM 


IC 61 (747C) Pin 2. 

Hier stehen die Signale FF und 
RD (Portadresse und ‚Read bzw. 
Cassette Write) mit TTL-Pegel an.: 
Die Schaltung ist erprobt und 
schon in einigen Exemplaren nach- 
gebaut, sie arbeitet beim Verfasser 
zur vollen Zufriedenheit. Eine De- 
tailschaltung des 
zeigt Abbildung 2. 
Mein besonderer Dank gilt Herrn 
Heiko Regard aus 3170 Gifhorn,. 
der durch die Ausarbeitung der 
Schaltung diesen Artikel über- 
haupt möglich gemacht hat. 


Rechnerteils 


Uwe Schmidtke 


Sandkaulstraße 84 


5100 Aachen 
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Vier 


Y CACC. Rec. IVoror 








LS 123 


LC 267 


IDYANROR. 


2u221a 0.& 





+4 TC 





ELEKTRONIK 3 


Für viele sind die Farbringe auf 
Widerständen immer noch ein 
Buch mit sieben Siegeln.. 

Mit dem nachfolgenden Pro- 
gramm ist das Ganze ein Kinder- 
spiel. ES ermittelt aus dem ein- 
gegebenen Farbcode den Zahlen- 


wert, bzw. aus dem Zahlenwert 
den Farbcode. 

Doch bevor Sie jetzt das Pro- 
gramm eingeben, einige Worte 
zum Farbcode. Auf Kohleschicht- 


widerständen, die wohl am häu- 


figsten gebrauchten Widerstände, 


finden wir vier Farbringe. Die bei-: 
den ersten Ringe geben den Zah- 
lenwert an, der Dritte die Anzahl. 
der Nullen. Der vierte Ring steht: 
für die Toleranz des jeweiligen Wi- 
derstands. 

Die Farbtabelle: 
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Farbe 


schwarz 
braun 
rot 
orange 
gelb 
grün 
blau 
violett 
grau 
weiß 
gold 
silber 


Ein Beispiel: 

Ein Widerstand hat die Farbrin- 
ge orange, weiß, rot und gold. 

Orange und weiß stehen für den 
Wert 39, rot ergibt * 102 und gold 
die Toleranz +— 5%. 

Der Widerstand hat den Wert 39 
* 102 Ohm, das sind 3,9 kiloohm 


1. Ring 


0 
1 1 
2 2 
3 3 
4 4 
5 5 
6 6 
7 7 
8 8 
9 9 


oO 


und die Toleranz von +— 5%. 
Früher oder später wird ein Wi- 
derstand mit fünf Farbringen vor 
ihnen liegen. Es handeit sich da- 
bei um einen Metallfilmwider- 
stand, der eine höhere Genauig- 
keit und einen höheren Preis auf- 
weist. Das Programm kann diese, 


Farbe 1. Ring 2. Ring 3. Ring 
schwarz 0 0 0 
braun 1 1 1 
rot 2 2 2 
orange 3 3 3 
gelb 4 4 4 
grün 5 5 5 
blau 6 6 6 
violett 7 7 7 
grau‘ 8 8 8 
weiß 9 9 9 
goid _ _ 

silber _ _ _ 


Auch hierzu ein Beispiel: 
An einem Widerstand befindet 
sich die Farbkombination rot, 


geib, weiß, schwarz und braun. 


Die ersten drei Ringe stehen jetzt 
für den Zahlenwert: 249. Der vier- 


* 1071 
* 1072 


für den Bastler selteneren Wider- 
stände, nicht verarbeiten. Für den 
Interessenten dürfte es kein Prob- 
lem sein, das Programm mit Hilfe 
der unten stehenden Tabelle um- 
zuschreiben. ' 
Farbtabelle für 
Metalifilmwiderstände: 


4. Ring 5. Ring 


* 10° - 
"101 +- 1% 
* 102 +— 2% 
«* 3 

aid - 

* 195 
* 108 en 


eg = 
* 902 = 


te Ring gibt den Multiplikator an, 
hier * 100. Der letzte Ring ergibt‘ 
eine Toleranz von +— 1%. 

Bernd Kaiser 


{9 REM SR RI RR OO OR ODROROROOGGOOIODIOGOIGIOGOIOOTOIIIIGRRIIOICK 


ZC REM KIKXKK 


KRRREK 
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30 REM KRKEXKX C. BY B. KAISER JUN '’8SE KERERK 
40 REM KRXKKR j KERKEK 
50 REM RRRORRRORORRRRGOBRISOTOTOIGOOTOROTIOGTOGTORIGRSROKIORK 
50 CLEAR200:RESTORE:DEFSTR A 
h 70 DNERRORGOTD4SO 
| 80 GOSUR 520 
?Q FRINTS7&B. "FARBEOD IN WIDERSTANDSWERT (1) ODER WIDERSTAND IN FARBCOD 
23. 98 
100 POKE16537,0 
110 E$=INKEY$: IFE#< >" 1 "ANDE$< "I" THEN11O 
120 IFE$="2"THEN240 
1350 PRINT: INPUT"FARBE RING 1. RING 2, RING 7, RING 4"zAt1) ,AZI,ALDI,AL 
4) 
140 FORI=1T03 
150 READCS,C 
160 IFC$=A(I) THENB (I) =CELSE15O 
| 170 RESTORE 
180 NEXT 
190 D=(B(LI)KIO+BCDIIRLOAB(DI 
200 IF At4)="RT"THEN T=2:60T0450 
210 IF Al4)="SI"THEN T=10 :60T0450 
220 IF At4)="60"THEN T=5: G0T0450 
230 GOT0630 
240 INPUT"WIDERSTANDSWERT "ıD# | 
250 INPUT"TOLERANZ {NUR DEN ZAHLENWERT)":T | 
260 IFD#Z1OTHENB (3) =B(I)-1:U=1:D#=D#%10:60T0280 
270 IFU<>1THENB (3) =LEN (STR$ (DEI IE 
280 V=CSNG (D#/ (1OAB(I))) 
290 D$=STR$ (V) 
| 300 HA$=MID$ (D$,2,1) 
310 B(1)=VAL (HA$) 
320 HB$=MID$ (D$,3,1) 
330 B(2)=VAL (HB$) 
340 FORI=1T03 
350 READ C$,C 
340 IFC=B (I) THENA(I)=C4ELBESSO 
370 RESTORE 
380 NEXT a. 2: 
390 IFT=ZTHENA (AI ="RT I EOTORSO 
400 IFT=STHENA (4) ="60":60T0A30 
410 IFT=10THENA (4)="S1":60T0430 
420 Ala)="“ 
430 IFU=1THEND#=D#ER (10AB (3) ) 
440 D=D# 
450 PRINTSS86, A{1)5:PRINTSS91,A(2 


);2PRINTSS96, A(Z);:PRINTSA01,A(A) SCHREIBEN SIE 


“ 


460 PRINTS15,D; mit PROSA 














| 
| 
| 
} 
! 
| 








330 CLS 


470 PRINT" DHM"; PROSA ist die Profi-Textverarbeitung für 
480 IFT>OTHENPRINT8&77, "TOLERANZ Colour Genie (32KB) 
= yo" ıT; am ge 3 - horizontales Verschieben des Bildschirmfensters (50 Zeichen) ö 
" - 125 Zeichen /Textzeile, Textlä .14000 Zeich 
4970 PRINTS970, NEU AUF TASTENDRUC . Zelennaa] Auikuszee Een) er vn 
K"s - Cursorsteuerung mit den Pfeiltasten = voll seitenorientiert 
in - Einf ‚ Löschen, Kopi Zeichen, Zeilen, Absch 
500 G$=INKEY$: IFG$=""THENSOOELSES Umiaute, Filentaxtelngane, Elockintz auf sam Pilasehitm, 
OÖ - Vorwärts- und Rückwärts-Tabulator 
fl s n b für alle Druck 
510 DATASW,0,BR,1,RT,2,0R,3,GE,4, ee 
BGN,S,BL,&6, y1, 7, GR, 9,W5,.9, So, -1, SI Prosa kostet DM 145,-- Händleranfragen erwünscht 
‚2 a nn Offenhäuser 
2 o oftware-Technologie & Anwender-Beratung 
520 REM Bildschirm Hauptstraße 113 6901 Gaiberg (06223) 40323 
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540 PRINTSIO,"FARBECEODODUMRECHNUNG" 


550 PRINTS7?, "fuer Widerstaende" 
540 FRINT:PRINT"KURZZEICHEN DER FARBEN :" 
570 PRINT"SCHWARZ = SW", "ERAUN = ER", "ROT = RT", "DRANGE = DR","GELB = 5 


E","'GRUEN = GN”, "ELAU = 


LBER = 51","GOLD = 560" 
580 FRINT 


BL", "VIOLETT = VI", "GRAU 


590 FORX=14T050: SET (X, ZN :SET(X, 31): NEXT 
s00 FORX=4TOD15:5ET(X,28):5ET (X+54,28) :NEXT 
&10 FORY=25T031:SET (14, Y):SET(17,YI:5SET(258,Y2:SET (27, D:SET (36, Y)5SET(S 
7,Y1):5ET146,V) :SET(47,Y):5ET (59, Y} SET (680, Y) NEXT 


520 RETURN 
830 REM FEHLER 


640 PRINTSF&0, "FEHLERHAFTE EINGABE"; 


A450 FOR J=1T0700:NEXT 


6540 FRINTS8974,STRING$ (120,323; 


470 GOTOYO 
480 RESUMESSO 


ıx8kık A = HOCHFFEIL!!! 


ZKIEXK 


= GR","WEISS = WS”","51I 





Abenteuerland. 


Abenteuerland ist ein Adventure- 
Spiel, in dem man mittels kurzer 
Befehle, die aus zwei Wörtern be- 
stehen, einen Androiden durch ein 
Land schickt, auf der Suche nach 
einem Schatz. Um an diesen 
Schatz zu gelangen, muß der Spie- 
ler diverse Aufgaben lösen und viel 
experimentieren. Der Wortschatz 
des Androiden beträgt ca. 70 Wör- 
ter, also genug, um alle Situati- 
onen zu meistern. 

Das Programm ist auf einem 
TRS 80 Model 1, Level 2 geschrie- 
ben worden und belegt ca. 16K. 
Da es aber ein reines Textspiel 
ohne jede Grafik ist und da keine 
Maschinenspracheprogramme da- 
bei enthalten sind, kann das Pro- 


80 CLEARI12OO 
70 DEFINTA-Z 


gramm von jedem anderen Basic- 
Computer übernommen werden. 

Einen groben Überblick über 
den Programmaufbau bietet die 
folgende Tabelle: 

80 - 120 
Initialisierung 

1000 - 1140 
Ausgabe der Position und Umge- 
bung 

1150 - 1500 
Befehlseingabe und Ansprung der 
befehisausführenden Programm- 
teile 

3000 - 4110 
Befehlsausführung 

8000 - 8230 
Unterprogramme 

9000 - 9510 


Endausgabe 
10000 - 12000 
Datenblöcke 
10000 - 10060 
Unveränderlicher Inhalt eines Fel- 
des 
10080 - 10340 
Ausgabesätze 
10360 - 10370 
Beweglicher Inhalt der Felder 
10510 - 10570 
Mögliche Bewegungsrichtung in 
den einzeinen Feldern 
10600 
Liste der 


beweglichen Gegen- 
stände 


Frank Nicklisch 


100 DIMF (9,153) ,M$(52),1$(9,13),D(97, 133 ,N$ (523 ,R$ (2) , IV$ (28), IV (28) „A$ (2 


5) 


110 R$tO)="ICH BEFINDE MICH 


120 X=1:Y=12 
980 GOSUBL1O000 
1000 CLS 


1010 PRINTTAB (25) "ABENTEUERLAND" 
1020 PRINT” -——-— 1 1 11 1111 m nn nn nn 


—— 


10350 A$=RS${RNDLSI-U 


":RS(1)="ICH STEHE ":R$(2)="ICH BIN JETZT " 
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1040 PRINTASSMS(F(X,Y)) 

1045 IFLEN(1$(X, Y)) <2THENPRINT: GOTO1040 

1050 IFRND (0) >. STHENPRINT"ICH SEHE =: "31$(X, V5CHR$(24)5" "ELSEPRINT 
1060 PRINT:PRINT"MOEGLICHE AUSWEGE 3" 

1070 IFDIX, Y)AND1&THENPRINT"NORDEN,  SUEDEN, OSTEN, WESTEN" :6GDTO1140 
1080 IFD(X,Y)=32THENPRINT"KEIN AUSWEG - DU WIRST VDN PYRANHAS VERSPEI 
ST.. "60109000 
1090 IFD(X, Y) ANDI THENPRINT"NORBDE 
1100 IFD(X, Y) AND4THENPRINT"SUEDEN 
1110 IFD(X, Y) ANDZTHENPRINT"OSTE| 
1120 IFD (X, Y) ANDBTHENPRINT"WES’ 
1130 PRINTCHR$ (24) 5; CHR$ (24) 5" 
1140 PRINT 
1150 INPUT"WAS. SOLL ICH TUN" 
1160 FORI=1TOLEN(I$) = IFMID$(I 
1170 IFLEFT$(I$,5)="SCHAU"THE 
1180 IFLEFT$ (1$,8)="HOLLADIO"T 
1190 IFLEFT$(1$,5)="LISTE"THEN 
1195 IFLEFT$ (1$,5)="HILFE"THE 
1230 PRINT"ICH VERSTEHE DIC 
1240 V$=LEFT$CI$, I-1) cH$=RI 
1250 IFH$="EIMER" THENH$="BL 
1255 IFH$="STIEFEL" THENHS= 
1260 IFH$="BEEREN"THENH 
1265 IFH$="HOELZER"THEN 
1270 IFH$="PILZ"THENHS= 
1280 IFH$="EISEN"THENH 























HEN1240E1LSENEXT 





VORM ZI FÜR ERNIEIN 


CP/M: Die große weite Welt der Software CP/M 2.2 (64-K-Version) mit dem Super-BIOS 








‚Sie haben jetzt die Möglichkeiten von professio- 
nellen Computersystemen und darüber hinaus 
liefert Ihnen unser CP/M 2.2 mit Ihrem Genie 
I/H Möglichkeiten, von denen größere Anlagen 
nur träumen! Sie sind nämlich nicht nur Soft- 
ware-kompatibel zu anderen CP/M-Rechnern, 
Sie sind darüber hinaus auch Disketten-kompa- 
tibel zu anderen Rechnersystemen! Disketten- 
kompatibel heißt: Sie nehmen eine Diskette ei- 
ner IBM-Anlage, einer ALPHATRONIC, eines 
OSBORNE, einer Olivetti, eines FORMULA 1 
u. a. und können diese Diskette direkt mit 
Ihrem Genie I/ll lesen und schreiben. Voraus- 
setzung ist ein Genie I/ll mit 64 K RAM (Mo- 
dell '83) sowie entweder die "Option EG 64” 
oder den "LSS 1.1”. Es muß mindestens ein 
Diskettenlaufwerk vorhanden sein. Genie | oder 
Genie II mit 64 K RAM (Modell '83) 998,-- DM 
LSS 1.1  (CP/M-Bankingsteuerungsbaustein) 
wird einfach aufgesteckt, ohne löten {1}, ohne 
schrauben 195 -- DM 
Option EG 64 — universelier Bankingbaustein, 
verwaltet bis zu 96 K RAM auch unter NEW- 
DOS-80, G-DOS oder direkt ohne Betriebs- 
system (muß eingelötet werden) 195,-- DM 











von Günter Ermer und org. Registrierkarte von 
Digital-Research 495,- DM 
Paketpreis: CP/M 2.2 + LSS 1.1 595,-- DM 
ERW-64 K erweitert Ihr Genie von 16 K auf 
64 K RAM 145,-- DM 


80 Zeichenkarte mit 600x300 Punkte-Grafik, 
64 K RAM mit eigenem Prozessor demnächst 
lieferbar. \ 


STAR DP 510 — Der Nadeldrucker, dem Sie 


nicht widerstehen können: 100Z/sec, Umlaute, 
Unterlängen, einzel Nadelansteuerung für High- 
Res-Grafik, enorm viele Schriftarten und -brei- 
ten, jetzt zum SENSATIONSPREIS: 998,-- DM 


Alle Preise inkl. ges. MwSt. Fordern Sie ausführ- 
liche ee an. (CP/M, Drucker, Co- 
lour Genie, etc. 


SCHMIDTKE 


electronic 


Sandkaulstraße 84/86 
5100 AACHEN 
Tel. 0241-23217 

Geschäftszeiten: 

Mo.-Fr. : 10.00 Uhr bis 13.00 Uhr 

14.30 Uhr bis 18.30 Uhr 

sa. 10.00 Uhr bis 14.00 Uhr 

Donnerstags geschlossen 
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1290 IFV$="GEH" ORV$="RENN"ORV$="LAUF " THENZOSO 

1300 IFV$="NIMM"DRV$="GREIF" THENS120 

1310 IFV$="LEGE"ORV$S="LASS"DRV$="GIEB" THEN3200 

1320 IFV$="FAELLE"THENS240 

1330 IFV$="SCHOEPFE"THENSS1O 

1340 IFV$="KLETTER"THENS37O 

1350 IFV$="LIES"THENS480 

1360 IFV$="DICHTE"THENSSSO 

1370 IFV$="BETRETE" THENZS&O 

1380 IFV$="DEFFNE" THENSSFO 

1390 IFV$="ZUENDE"THEN36FO 

1400 IFV$="SCHLEIFE"THENS730 

1410 IFV$="BEWEGE"THEN375O 

1420 IFV$="GRABE" THENZ7FO 

1430 IFV$="TDETE" THEN3BZO 

1440 IFV$="PFLUECKE "AND (H$="FLIEGENPILZ "ORH$="ERDBEEREN" ) THENZ120 

1450 IFV$="PFLUECKE"THENS140 

1460 IFV$="1SS"THENSBAO 

1470 IFV$="RUDERE " THEN3FOO 

1480 IFV$="SCHUETTE" THEN3F5O 

1490 IFV$="VERLASSE " THENS99O 

1500 G60TD1230 

2000 STOP 

3000 PRINT"ICH SEHE "z: IFLEN(I1$(X,Y))<2THENPRINT" NICHTS"ELSEPRINT":";1 
$CX,YIZEHRS (24) 5" " 2; 

3010 6DT01140 

3020 IFH=1THENPRINT"ALLES UM MICH HERUM DREHT SICH... ICH STEHE JETZT P 
LOETZLICH IN EINER ANDEREN HUETTE"ELSEPRINT"WAS SOLL DENN DAS BEDEUTEN? 
":60T01140 

3030 IFX=3THENX=7: Y=8ELSEX=3: v=9 

3040 GOTD1140 

3050 X1=X:Yi1=Yı IFX=4ANDY=4THENF000 

3051 IFH=14THENPRINT"DAS KANN ICH JETZT NICHT":GDTO1140 

3052 IFF(X,Y)=28ANDIV(3)<>1THENPRINT"UND WIE SOLL ICH HIER RAUSKOMMEN ? 
"GOTD1140 

3054 IFF(X,Y)=40ANDIVCISI<>LTHENPRINT"HILFE ICH WERDE VON PYRANHAS ANGE 
NAT... ":GOT09000 

3056 IFD(X,Y)=44THENPRINT"DER BAR GREIFT MICH AN - UND TDETET MICH. ..": 
GOTOFOOO 

3058 IFD(X,Y) >12BAND(LI<CHLORIVEL1IK>HLI THENPRINT"ICH VERIRRE MICH IM WAL 
D. .. "zFORI=OTD1000: NEXT: GOTDF000 

3060 IFH$="OST"AND (D (X, Y) AND2) THENX=X+1 

3065 IFH$="NORD"AND (D (X, YIAND1) THENY=Y-1 

3070 IFH$="SUED"AND(D (X, Y) AND4) THENY=Y+1 

3080 IFH$="WEST"AND(D (X, Y)ANDB) THENX=X-1 

3090 IFDIX, YIANDIATHENS11O 

3100 IFX=XLANDY=YITHENPRINT"DORTHIN KANN ICH NICHT GEHEN" :GOTO1140 

3110 6DTOLOOO 

3120 GOSUB8000: FORI=OTOJ-13 IFA CII<>HSTHENNEXT:PRINT"DAS SEHE ICH HIER 
NICHT":G0TO1140 

3130 FORI=OT028: IFIV$ (I) =H$THENS14SELSENEXT 

3140 PRINT"DAS KANN ICH NICHT TUN"=GDTO1140 

3145 PX=PX+1: IFPX>STHENPX=PX-1:PRINT"ICH HAB ZUVIEL ZU SCHLEPPEN !":60T 
01140 

3147 IFH$="SCHATZ"ANDIV (25) <>LTHENPRINT"ZU SCHWER !":6G0T01140 

3150 IV(I)=1:FORI=OTOJ-1: IFH$=A$ (I) THENA$ (II ="" 

3160 NEXT: IFH$="HONIG"THENGOTDSOSO 

3161 IFH$="FLIEGENPILZ" ANDOI=OTHENOF=1 5: IFJ=OTHENJ=1: A$ (0) ="STREICHHOELZ 
ER"ELSEA$="STREICHHDELZER, " 

3165 PRINT"OKAY !" 





— | . = 





ei 
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3170 IFI=CTHENA$=""ELSEFORI=OTDJ: IFLEN{A$ (I) )< >OTHENAS=AS+AS (I) +", ":NEX 

TELSENEXT 

Z180 I$CX,V)=A$ 

3190 GOTD1140 

3200 FORI=0T028: IFH$=1V$ (1) THENSZ1OELSENEXT: GOTO1230 

3210 IFIV(TDI<>1THENPRINT"DAS HABE ICH NICHT !":60T01140 

3211 IVCDI=O:PX=PX-i 

3212 IFH$="HONIG"ANDF (X, Y)=41THEND (X, Y)=153PRINT"DER BAER NIMMT DEN HON 

IG UND LAEFT DAMIT WEG":F(X,V)=5:60T01140 

3214 IFH$="KNOCHEN"ANDF (X, YI=45THEND (X, Y)=11:PRINT"DER HUND NIMMT DEN K 

NOCHEN UND VERSCHWINDET DAMIT":F(X,Y}=5:60T01140 

3216 IFH$="ERDBEEREN" ANDF (X, YI=2STHEND (X, Y)=15:F (X, Y)=S:PRINT"DER RIESE 
NIMMT DIE ERDBEEREN UND VERSCHWINDET IM NAHEN WALD" 

3217 IFH$="WAGEN"ANDIV (27) =1THENIS (X, V)=1$ (X, VI) +"SCHATZ, ":1V (27)=0:PX=P 

X-1 

3218 IFH$="FISCH"AND(F (X, Y)I=6ORF (X, Y) =240RF (X, Y)=40) THEND (7,12) =10:F (7, 

12)=S5:PRINT"DER FISCH SPRICHT !'! - DER WEG DURCH DEN BERG STEHT DIR JET 

12T OFFEN -":60T01140 

2219 IFH$="SCHATZ"ANDF (X, Y}=19THENPSOO 

3220 I$(X,V)=IS(X,VI+IVED)+"," 

2230 PRINT"OKAY !":60T01140 

3240 IFIV(AI<>LANDIV(23}<X>1THENPRINT"WOMIT DU DOLDY !1":GOT01140 

3250 IFH$< >" BAUM" ANDH$< >"EICHE" THENZ140 

3260 IFF(X,Y)=OTHENPRINT"OKAY !":FORI=1T0500: NEXT:PRINT"ICH HABE EINEN 

BAUM GEFAELLT. ER FAELLT INS DICHTE UNTERHOLZ UNDIST NICHT MEHR ZU SEHE 
.":GOT01140 

3270 IFH$="EICHE"THENPRINT"DIE IST MIR VIEL ZU DICK":GOTO1140 

3280 IFF (X, YI=ZOTHENPRINT"DIE LUFT FLIMMERT... DER BAUM VERSCHWINDET... 
ZURUECK BLEIBT EINBIENENNEST !":1$(X,V)=I$ (X, YI+"HONIG, "z1V(1)=0:PRINT 
“DIE AXT IST BEIM LETZTEN SCHLAG ZERSPLITTERT":PX=PX-1:601T01140 

3290 IFF (X, V)=37ANDSB=1THENPRINT"OKAY !":1$(X, V=I$ (X, Y)+"BAUM, "2M$ (37) 

="IN EINEM WALDSTUECK":6OTO1140 

3295 IFF(X,Y)=37ANDSB=OTHENPRINT"DIE SAEGE IST ZU STUMPF*:60T01140 

3300 60101230 

3310 IFH$<>"OEL"ANDHS$< >" WASSER" THEN3140 

3320 IFIV(16)=OANDIV (4) SOTHENPRINT"WOMIT ?"=G0T01140 

3330 IFIV (16) =OANDD9< >1THENPRINT"DER EIMER IST UNDICHT":60T01140 

3340 IFIV(Ii&)=1THENIV (16) =0ELSEIV (6) =0 

3350 IFH$="WASSER" THENIV (2B)=1ELSEIV (17)=1 

3360 PRINT"OKAY !":G0T01140 

3370 IFH$="BERG"ANDF (X, VI<>LTHENPRINT"DAS SEHE ICH HIER NICHT" :60T01140 

3380 IFH$="BERG"THENPRINT"ICH BIN DOCH NICHT LEBENSMUEDE":G6OTO1140 


3390 IFH$=" BAUM" AND (F(CX,YI<>OANDF (X, Y)<>20) THENPRINT"DAS SEHE ICH HIER | 


Geld verdienen mit dem Mikrocomputer 


Wie Sie das machen können, zeigt Ihnen unsere Arbeltsmappe "Geld verdienen 
mit dem Mikrocomputer«. Wir zeigen Ihnen wie Sie mit einem Adressenverlag 
Getd verdienen können, oder wie ein Textservice-Büro aufgebaut wird. Weltere 
Themen sind: 

Geschäftsanmeldung und wie man es macht 

Start von zu Hause aus 

Vermittlungsgaschäfte per Mikrocomputer 
"Verkaufen Sie Software 

Geld verdienen mit seinem Buchversand 

Das Computer-Kinderbuch 

Das Geschäft mit dan Vereinen 

Wie Sie einen Computershop eröffnen 

Geld verdienen mit Bausätzen und Teilen 

Der freiberufliche Programmierer 

Wie Sie nebenberuflich Computer verkaufen können und viete weitere Tips, 

Ideen und Anregungen. Auch ein umfangreiches Adressenverzeichnis ist 

beigefügt, damit Sie wissen wo Sie was bezlehen können. 

Die Mappe kostet mit Checklisten DM 98.-. Lieferung erfolgt par Nachnahme 

+ Porto oder gegen Scheck portofrei. Garantie: Sie haben Rückgaberecht 

innerhalb 8 Tagen. 


Verlag P. Kirchmeier, Ringstr. 3/CR, 7504 Weingarten, Tel. 07244/2871 
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NICHT": GOTO1140 

3400 IFH$="BAUM" THENPRINT"OKAY !"=:PRINT"AHH - ICH RUTSCHE AB...":60T0 

2000 | 
3410 IFH$="EICHE" THENPRINT"OKAY !*":G0TO3S420ELSE 1230 

3420 IFOB=1THEN1140 * 


3430 PRINT"ETWAS FAELLT HERAB !"21$(X, Y)=I$ (X, Y)+"GUMMISTIEFEL, " 
3440 FORI=1TOS00:NEXT 

3450 PRINT"...UND ICH FALLE HINTERHER" \ ? 
3460 08=1:60T01140 

3480 IFHS$<>"INSCHRIFT"THENPRINT"SD ETWAS KANN ICH NICHT LESEN":GO0TO1140 
3490  IFF (X, Y)=18THENPRINT"HOLLADIO":GOTD1140 

2500 IFF(X,Y)=19THENPRINT"LEGE HIER DEN SCHATZ AB":50T01140 

3510 IFF(X,Y)=32THENPRINT"SEIN ODER NICHT SEIN. ..":60T01140 

Z520 PRINT"ICH SEHE HIER KEINE INSCHRIFT"=:6OT01140 

3530 IFH$<>"BLECHEIMER"THENPRINT"WAS SOLL DENN DER SCHWACHSINN ?":60T01 
140 

3540 IFIVt1P)=ÖOTHENPRINT"WOMIT DENN 7":50T01140 

Z545 IFIV({&)=OTHENS140 

3550 IV 19) =0: PX=PX-1:D9=1:PRINT"OKAY !":G0T01140 | 
Z560 IFH$="HUETTE"ANDF (X, Y)=FTHENPRINT"DIE HUETTE IST VERSCHLOSSEN" :GOT | 
01140 | 
3565 IFH=1THEN3140 | 
3570 IFH$="HUETTE"ANDF (X, Y) =10THENH=1:PRINT"OKAY !":G0T01140 
3580 PRINT"WELECHE RICHTUNG LIEGT DAS 7":6GOT01140 | 
3590 IFH$="HUETTE"ANDF (X, Y)=9ANDIV (12) =1THENPRINT"OKAY !"SPRINT"DIE HUE | 
TTE ISTJETZT AUF":F(X,Y)=10:60T01140 

600 IFH$="TOR"ANDF (X, YI)=3STHENPRINT"DAS TOR IST VERSCHLOSSEN UND ES IS | 
T KEIN SCHLOSS ZU SEHEN":GOTO1140 | 
3610 IFH$="SCHLOSSTOR"ANDF (X, Y) =44ANDIV (24) =1 THENPX=PX-1: IV (24) =0:DIX,Y 
)=10:PRINT*DAS TOR IST JETZT OFFEN":GOT01140 

3620 IFH$="TUER"ANDF (X, YIJ=49THENPRINT"DIE TUER IST NUN AUF"sIS(X,V)=Ist 
X, YJ+"SCHLUESSEL, ":26GOT01140 

3630 IFH$=" TUER"ANDF (X, YI=S1ANDIV (24) =1 THENIV (24) =0:PX=PX-1:D (X, Y)=10:P 
RINT"DIE TUER IST JETZT AUF":GOTOL140 

640 60T01230 

3690 IFH$="LATERNE"ANDIV (11) SLANDIV(P)=LTHENIV(P =0:PX=PX-1:L9=1:PRINT" 
DIE LATERNE IST AN":60TD1140 

3700 IFH$="STROH"ANDF (X, Y)=23THENS9=1:PRINT"DER FEUERSPEIENDE DRACHE HA 
T DAS STROH ENTZUENDET":GOTO1140 

3705 IFH$="STROH" ANDIV(FP)=1THENIV (9) =0: S9=1: PX=PX-13PRINT"OKAY !":60T01 
140 y 

3710 IFH$="DORNENHECKE " THENGOSUBB2OO: GOTO1 140 

3720 G0OTO1230 

3730 IFHS="MESSER"ORHS="AXT"ORHS="SCHWERT "THENPRINT"OKAY 1m: PRINT "SCHAE 





RFER ALS JE ZUVOR": GOTO1140 

3740 IFH$="SAEGE"THENPRINT"SCHAERFER ALS JE ZUVDR":58=1:60T01140 

3750 IFIV (20) <>1THENPRINT"WOMIT ?7":G0T01140 

3780 IFH$<>"STEIN"THENPRINT"DAS KANN IEH NICHT TUN":GOTO1140 

3770 IFF(X,YI<>A43STHENPRINT"WO IST DENN HIER EIN STEIN! !":60T01140 

3775 IV(20)=0:PX=PX-1 

3780 PRINT"ICH HABE DEN STEIN ZUR SEITE GEHEBELT. DARUNTER IST NICHTS — 
BISAUF EIN IN DEN BODEN GERITZTES KREUZ":S7=1:60T01140 

3790 IFIV 2) =GCTHENPRINT"WOMIT DENN?":GOTO1140 

3800 IFF(X,Y)<>A3STHENPRINT"OKAY !"sPRINT"ICH BIN JETZT SCHON "RND(5)" M 

ETER TIEF UND HABE IMMER NOCH NICHTS GEFUNDEN — ICH SCHUETTE DAS LO 

CH WIEDER ZU": GOT01140 

3810 FRINT*OKAY !"=:FORI1=1T0500: NEXT: FPRINT"SCHON KURZ UNTER DEM BODEN ST 

OSSE ICH AUF ETWAS HARTES":ISC(X,Y)=I$CX,Y)+"SCHLUESSEL, ":GOTO1140 

3920 IFIV(14)=0OTHENPRINT"WOMIT ? VIELLEICHT MIT EINEM MESSER ?":60T0D11i 

40 
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3830 IFH$<>"DRACHE"THENZ140 

3855 PRINT"OKAY !" 

3840 FRINT"DAS SCHWERT DES RIESEN TOETET DEN DRACHEN. DAS SCHWERT UND D 

ER DRACHE VERSCHWINDEN" :D(X,Y)=15:F(X,V)=5 

3850 IV(14)=0:PX=FX-1:60T01140 

3840 IFH$="HONTB"ANDIVtIO)=1THENIV (10) =0:2 PX=FX-1:FRINT"HMM DAS WAR FEIN 
1:G0T01140 

3865 IFH$="ERDBEEREN"ANDIV(7I=1THENIV(7T}=0:PX=PX-1:PRINT"HMM — FEIN DIE 

SE ERDBEEREN":GOTD1140 

3870 IFH$="FLIEGENPILZ"ANDIV (BI =1THENIV (B)=0:PX=PX-1:PRINT"WUERG DER I 

ST JA GIFTIG... ":50T09000 

3880 PRINT"DAS WERDE ICH NICHT ESSEN. DAS IST BESTIMMT UNGESUND":GOTO11 

40 

3900 IFIVC1LSI<PLANDF (X, YI<C>ZATHENSL14O 

3710 IFH$="NORD"ORH$="SUED"THEN3140 

3915 IFIVCISHI=1IANDIV (25) <>ITHENPRINT"UND WOMIT SDLL ICH RUDERN?":GOTO11 

40 

3920 IFH$="OST"THENX=-5F(4,Y)=6:1$ (4, Y3="":G0OT03935 

39230 IFH$="WEST"THENX=3:F(4,Y)=65:1$14,Y)="":G0T03935 

3932 GOT0O1230 

3935 IFIVCELSI=S1THENIV (13) =0: PX=PX-2: IV (26) =0 

39736 GOTO1000 

3950 IFH$<>"DEL"ANDHS< >" WASSER" THEN3140 

S3s9&0 IFH$="DEL"ANDIVLLTI=S1THENPRINT"OKAY 1": IV 1NI=0:PX=PX-1: ec, Yı=Is 

IKXK,YIH"DEL,":IFF(X,V)=15ANDY=7THENSO=1:G6DOTO1140ELSE1140 

3770 IFH$="WASSER"ANDIY (28) = ITHENPRINT"OKAY !":1IV(28)=0: PX=PX-1:18 (X, Y 

=I$ (X, I +"WASSER, ":GOT01140 

3990 GOTDO1230 

3990 IFH$="SCHLUCHT"ANDF (X, VI =27THENPRINT"OKAY !*:Y=Y+1:G60T01000 

4000 IFH$="HUETTE"ANDF (X, VI) =10OANDX=7THENY=Y+1:H=0:50T01000 

4010 IFHS="HUETTE"ANDF (X, YI=10ANDX=3THENX=X-1:H=0:GOTDO1000 

4020 GOTOS140 

4100 FORI=OT028: IFIV{TIIY<>OTHENPRINTIVS (I) 

4105 NEXT 

4110 GOTDO1140 

8000 A$=1$(X,Y):J=0 

8010 FORI=1TDLEN (AB) 3A$(J)="" 

8020 IFMID$(A$,1,1)=","TNHENA$S (TI =LEFTS$ (AS, I-1) a J=J+1: A$=RIGHTS$ (AS, LEN (A 

$)-I):G0T08010 

B030 NEXT 

8040 RETURN 

8050 FORI=0OTOJs IFAS CI) ="WASSER" THENBOSOELSENEXT : GOTOBOTO 

8050 A$(TI)="":60T03155 

8070 FRINT"DIE BIENEN GREIFEN MICH AN — UND STECHEN MICH TOT...":60T070 

00 

8200. IFSO=1ANDSY=1 THENIV (O0) =0: PX=PX-1:6DT08230 

8210 IFSO=1ANDIV (9) =1THENIV(N=0:PX=PX-1:BOTD823I0 

8220 IFSO=OANDSF=1THENIV (0O)=0:PX=PX-1:PRINT"DAS STROH VERBRENNT —- DIE H 

ECKE NICHT.” :RETURNELSERETURN 

8230 FRINT”"DIE HECKE VERBRENNT RESTLOS":F(X,Y)=5:D1X,Y)=15: RETURN 

27000 FORI=O0TDZ000: NEXT=CELS:PRINT"ICH BIN JETZT IN EINER GROSSEN HODENHLE 

- MAN KDENNTE 

9010 PRINT"FAST SAGEN HOELLE — AN EINER FELSWAND STEHT EINE 

7020 PRINT"INSCHRIFT =: DER RICHTIGE SPRUCH RETTET DEIN LEBEN” 

2030 PRINT: INPUTAS$ 

7040 IFLEFT$(A$,8)="SEIN ODE"THENGOTDLOCO 

9050 END 

7500 ELS:PRINT"DU HAST DAS ZIEL ERREICHT. -— DU BIST DER HELD DES ABENTEU 

ERLANDES" 

97510 END 
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10000 DATAO,0,0,0,0,6,2,2,2,2,0,1,1,30, 31,6, 2,49, 50,2 

10010 DATA1,27,1,28,29,6,2,48,51,52,0, 25,32, 26, 5,6,2,47,50,2 
10020 DATAO,22,5,23,24,5,44,45,46,2,0,18, 20, 21.85 54 25 23 2,2 
10030 DATAO,0,17,15,6,6,1,1,1,1,0,14,5,15,16,6, 19,5,43,0 
10040 DATAO, 11,12,13,6,6,42,10,0,0,0,7,8, 9,6, 39, 40,41,0,0 
10050 DATAO,0,1,6,6,6,0,5,38,0,0,3,4,6,37,0,0,1,1,1 

10060 DATAO,0,1,6,33,5,34,35,36,0,0,0,0,6,0,0,0,1,0,0 

10070 FORI=0TO13:FORJ=0TO9:READF (J, L) :NEXT=3NEXT 

10080 DATA"IN EINEM WALD", "VOR EINEM UNUEBERWINDBAREN BERG" | 
10090 DATA"VOR EINER SCHLOSSMAUER", "BEI EINEM STROHHAUFEN" 

10100 DATA"IN EINER HOEHLE","AUF EINER SONNIGEN WIESE" 
10110 DATA"IN EINEM FLUSS", "AM WALDRAND" 
10120 DATA"AUF EINEM PLATZ",."VOR EINER VERSCHLOSSENEN HUETTE" 

10130 DATA"VOR EINER DFFENEN HUETTE","AN EINEM STINKENDEN TUEMPEL" 

10140 DATA"AUF EINEM SCHMALEN WEG", "ZWISCHEN FISCHERNETZEN" 

10150 DATA"BEI EINEM AUSGETROCKNETEN BRUNNEN" 

10155 DATA"VOR EINER UNDURCHDRINGBAREN DORNENHECKE" 

10150 DATA"AUF EINEM ERDBEERFELD", "IN EINEM WALDSTUECK" 

10170 DATA"VOR EINER STEINTAFEL", "VOR EINER STEINTAFEL" 

10180 DATA"BEI EINEM HOHEN BAUM", "IN EINEM GESTRUEPP" 

10190 DATA"AUF EINER WIESE", "BEI EINEM FEUERSPEIENDEN DRACHEN" 

10200 DATA"AM FLUSS", "BEI EINEM SCHRECKLICHEN RIESEN" 
10210: DATA"IN EINEM DUNKELEN WALD", "IN EINER SCHLUCHT" 

10220 DATA"IN EINER FALLGRUBE", "VOR EINER KNORRIGEN EICHE" 

10230 DATA"AM FUSSE EINES BERGES", "AN EINEM DELSEE" 

10240 DATA"VOR EINER STEINTAFEL","IM MOOR" 

10245 DATA"BEI EINEM SCHLEIFSTEIN" 

10250 DATA"VOR EINEM TOR IM BERG","IN EINER LEHMGRUBE" 

102640 DATA"IN EINEM WALDSTUECK VOR EINEM DUERREN BAUM", "AM FUSSE EINES 
BERGES" 

10270 DATA"AUF EINER INSEL IM FLUSS","AN EINER FURT" 

10280 DATA"AUF EINER WIESE", "AUF EINER WIESE" 

10270 DATA"AUF EINEM GROSSEN PLATZ MIT EINEM MARKANTEN STEIN" 

10300 DATA"VOR EINEM SCHLOSSTOR" 

10310 DATA"IM SCHLOSSHOF VOR EINEM BISSIGEN HUND" 

10320 DATA"IM SCHLOSSHOF", "IM SCHLOSSHOF", "IM SCHLOSSHOF" 

10330 DATA"AN DER SCHLOSSMAUER", "AM TURM", "VOR DER TURMTUER" 

10340 DATA"BEI EINER SCHATZTRUHE" 

10350 FORI=0T052: READM$ (I) =NEXT 

10360 DATA, , ,STROH, AXT, , „SCHAUFEL,LEITER, , , ‚MESSER, NETZE, BLECHEIMER, ‚ER | 
DREEREN, FLIEGENPILZ,, INSCHRIFT, INSCHRIFT , BIENENNEST , LATERNE ‚ BRECHEISEN, , | 
BOOT, „ „ SCHWERT, , „ TOPF, „ INSCHRIFT, FISCH, SCHLEIFSTEIN, „LEHM, , BRETTER, KNOC | 
HEN, „BAER, SAEGE, , , „BOOT | 
10370 DATAWAGEN, RUDER, TUERCHEN, ,, SCHATZ 

10380 FDRI=0T052: READN$ CI) SNEXT 

10510 DATA22, 30, 30,30, 28,32,0,0,0,0,1,1,1,7,13,32,2,14,8,0 

10520 DATA4,4,0,7,9,32,2,15,8,8,23,14,14,141,32,32,2,15,8,0 

10530 DATA23,15,15,13,10,14,8,2,8,0,23,15,15,13,32,1,0,0,0,0 

10540 DATA23,15,15,13,32,32,4,4,4,4,23,15,15,13,8,32, 7,15, 15,29 

10550 DATA23,15,15,13,32,32,3,15,15,29,23,15,15,9,32,2,10,64, 15,29 
10560 DATA23,13,1,32,32,32,6,11,11,25,23,15,8,32,6,14,15,8,4,4 

10570 DATA23,15,8,2,15,15,15,8,15,29,19,25,0,32,19,27,27,8,19, 25 

10580 FORI=01T013: FORJ=OT09:READD (J, I) zNEXT:NEXT 

10590 FORI=0T013: FORJ=0T09: 1$ (J, DI=N$ (F(J, 1)) +", ":NEXT:NEXT 

10600 DATASTROH, AXT,SCHAUFEL „LEITER, MESSER „NETZE ‚BLECHEIMER ‚ERDBEEREN,F 
LIEGENPILZ, STREICHHOELZER, HONIG, LATERNE , BRECHEISEN, BOOT , SCHWERT „ GLUMMIST 
IEFEL, TOPF, DEL, FISCH, LEHM, BAUM, BRETTER, KNOCHEN, SAEGE , SCHLUESSEL , WAGEN, R 
UDER, SCHATZ , WASSER 

10610 FORI=O0T02B: READIV& (I) NEXT 

12000 RETURN 








Dieses Programm soll eine komfor- 
table Möglichkeit sein, sinnvolle, 
komplizierte und hübsche Grafi- 
ken mittels der Plott- und Paint- 
Routinen zu erstellen. 

Diese Grafiken können aus Pro- 
grammdaten, einzugebenden Ko- 
ordinaten oder Cassetten-Auf- 
zeichnungen (Grafik-Speicher wird 
aufgezeichnet} aufgebaut und ge- 
druckt werden. 

Hier einige Hinweise 

Die Steuerzeichen, die beim 

plotten verwendet werden kön- 
nen, sollen bei Bedarf anstatt der 
Koordinaten eingegeben werden. 
Dabei wird der Zähler nicht er- 
höht. 
Beim Bemalen der Flächen führt 
die "®’ als Farbnummer zurück 
zur Auswahl, beim Einlesen, Spei- 
chern und Drucken, das "A”. 

Als Sicherung vor Endlosschlei- 
fen ist vor. dem Einlesen, Spei- 
chern und Drucken eine ''Be- 
reit?'‘-Frage eingebaut, bei der’al- 
les andere als ''J" zurück zur Aus- 
wahl führt. 

Zum Grafik-Speicher: 


Der Grafik-Speicher beschreibt 


nacheinander in 102 Zeilen je 40 
Bytes (=320 Bits). Damit könnte 
er eigentlich 320 Punkte pro Zei- 
le definieren. Doch da vier Farben 
dargestellt werden sollen, benutzt 
das Colour Genie je zwei Bits für 
einen Punkt und kann so für jeden 
Punkt die Farbe bestimmen (2 


EN ee ee ea Plot-Programn-—-———- 
20 "mu  Datenteil---------------. -- 
30 DATA 12 :’Anzahl der Punkte 


wre mus en 


SOFTWARE 
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Plotter 


COLOUR GENIE 


Bits können 4 Werte annehmen: 
0,1,2 und 3). 
Zur Arbeitsweise des Programms: 

Das Programm speichert nun 
die Werte der Bytes+100 (damit 
alle Werte -von O bis 255- dreistel- 
lig werden) als Zeichenkette mit je 
240 Zeichen (= 80 Werte), wobei 
2 Zeilen gleichzeitig abgespeichert 
werden. 

Beim Drucken ist es etwas kompli- 
zierter: 

Das Modell, ein Star DP 8480, 
läuft mit einem IC, der neben 
dem Standard-ASCII-Zeichensatz 
noch 64 Grafikzeichen hat. 

Es sind. .die Zeichen 128-159 
und 224-255. 

Diese 64 Zeichen haben in der 
obersten Zeile max. 6 Punkte, die 
nach Art der Dualzahlen 2 hoch 6 
Kombinationen zulassen. Demzu- 
folge wandelt das Programm in 
den Zeilen 950-970 die Bild- 
schirmzeile in einen String aus 
Nullen und Einsen um und zer- 
hackt diesen dann in Zeile 980 in 
6er-Strings und druckt sie in Zei- 
le 1030 aus, 

Haben Sie einen prinzipiell an- 
deren Drucker, müssen Sie sich in 
den Zeilen 870-1030 einen ande- 
ren Algorhythmus einbauen {am 
Ende das Return nicht vergessen) 
oder wie es auch bei denen, die gar 
keinen Drucker haben, empfeh- 
lenswert ist, in Zeile 850 vorweg 
ein Return einbauen. 


Achtung! 
Colour Genies mit alten ROM’s 
Wenn CLS den Grafik-Speicher 
mitlöscht, kann dies auch in: den 
Zeilen 90, 220, 290, 400, 600, 
760 und 850 durch Gosub 1035 
ersetzt werden, wenn die Zeile 
1035 FOR AD = 17408 TO 18407 
: POKE AD,32 : NEXT: 
RETURN 
eingefügt wird. Auch die Zahl 101 
kann in Zeile 310 durch 95 er- 
setzt werden. 


Um Zeit zu sparen, kann dann. 


auch in Zeile 710 und 800 die 
höchste Speichernummer auf 
22191 (von 22511) geändert wer- 
den. 
Noch ein paar Erklärungen 
zu den Zeilen: 
20 -60 
Eine programminterne Grafik muß 
hier eingeschrieben werden. 
90 +210 
Der Auswahlstring AW$ und die 
Schleife in 210 bietet den richti- 
gen Sprungbefehl auf kurze und 
schnelle Weise. 


880 
CHR$ (15) = 136 Zeichen/Zeile 

1030 
CHR$ (14) = Doppelte Schrift- 
breite 

Ändert man CHR$ (2) in CHR$ 
(1) und löscht das CHR$ (14), 
dann schrumpft die Grafik auf die 
Hälfte zusammen. 

Jürgen Gratz 


40 DATA 40,90,40,20,60,0,100,0,80,20, 40,20, 40,70, 80,90, 100,70,100,0,80, 


20,80, 90 
50 DATA 3 


:’Anzahl der Flaechen 


50 DATA 680,87,4,81,88,2,40, 19,3: ’Kooardinaten+Farbe 
70 DEFINT 5,T,X-Z:CLEAR 1000: Z=1:DIM X (100),Y1100) 
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90 AW$="LDPBESVZW":SCLS 
100 PRINTS87, "Plot-Programm-Auswahl "= PRINTS127,STRING$ (21,211):PRINT 


110 PRINT: PRINT" L--Loeschen des Bildes" 
120 PRINT:PRINT" D--Datenbild zeigen" 

130 PRINT:PRINT" P--Plotten" 

140 PRINT:PFRINT" B--Bemalen der Flaechen"” 
150 PRINT:PRINT" E--Einlesen von Cassette" 
150 PRINT:PRINT" S--Speichern auf Cassette" 
170 PRINT:PRINT" V--Ausdrucken des Bildes" 
180 PRINT:PRINT" Z--Zeigen des Bildes" 

170 PRINT:PRINT" W--Schluss'"s 


200 A$S=INKEYS$: IF A$="" THEN 200 

210 FOR T=1T09:1IF A$=MID$(AW$,T,.1) THEN DON T GOSUB 580, 240,290,500,580, 
7560,850,550, 1050 ELSE NEXT T:60TO 200 

220 CLS:LGR:GOTO 100 

230 * rn ------Batenbild zeigen---—---------- 

240 FELS:FGR: FCOLOURA4:READ N,X1,Y1 

250 FOR T=1 TO N-i:READ X2, Y2: PLOT Al,Y1 TO %X2,Y2:X1=X2: Y1=Y2:NEXT T 
260 READ N:FOR C=i TO N:READ X,Y,F: PAINT X,Y.F,4:NEXT:RESTORE 

270 A$=INKEY$: IF A$=""THEN 270 ELSE Z=1:RETURN 


280 *-----—— Plot-Erklaerung------- nn 

290 ECLS:PRINT" Erklaerung":PRINT 8545, STRING$ (10,211) 

300 PRINT " Moegliche Koordinaten sinds" 

310 PRINT:PRINT " von links nach rechts 0-159 von oben 
nach unten Ö-101" 

320 PRINT:PRINT"Die Koordinaten muessen nacheinander eingegeben werd 
en. 2 

330 PRINT:PRINT"Form: X,Y <Return>":PRINT 

240 PRINT "Bis zum naechsten Tastendruck zeigt der Computer das entstan 
dene Bild (wenn nicht 5, gedrueckt ist)." 


350 PRINT:PRINT "STEUERZEICHEN: ":FRINT "<F’x,> =Letzten Strich kloeschen 
":PRINT "<Z><,> =Zaehler gleich 1 setzen" 

360 PRINT "CS2, > =Rus-,Einschalten des Bildes":PRINT "<A><,> =Auswahl" 
370 PRINT:PRINT "Alles klar?"”:PRINT "Dann irgendeine Taste druecken."; 
380 A$=INKEY$: IF A$="" THEN 380 

390 °--—-- Plot-Eingabe-Teil---—------——- 

400 CLS:FCOLOURA=: IF Z=0 THEN Z=1 

410 Z$=RIGHT$ (STR$(Z) ,LEN(STR&S {Z))-1) 

420 PRINT"X"+7Z$+", Y"+Z$+"="; 2 INPUT X$,\Y$ 

430 IF {Z=1 AND 1g=" Fu + DR X$="" THEN GOTD 410 

440 IF X$="Ff" THEN Z=Z-1:NPLOT X(Z-1)3,Y(Z-1) TO XCD,YIZISPLOT XtZ-1),Y 
(Z-1): IF S=0 THEN GOSUB 550:60TD A10:ELSE A410 

450 IF X$="Z" THEN Z=1:60T0 410 

450 IF X$="A" THEN RETURN 

470 IF X$="5" THEN IF S=0 THEN 5=1:G6DTD 410 ‚ELSE $=0: SRRUB 550:60T0 41 


490 KCZI=VALIXSEI SYIZI=VAL (YES) 

500 IF X(2)>255 OR Y{IzI>255 DR XtZY<O OR YIZ)I<SO THEN PRINT"Falsche Zahl 
en!":60TD 410 

510 IF Z=1 THEN PLOT X(1),Y(1):Z=Z+1:IF 5=0 THEN GOSUB 550 :GOTO 410:EL 
SE A410 

520 PLOT X1{1Z-1),Y1Z-1) TO X(D,Y(IZ 

530 Z=I+1:IF 5 THEN 410 ELSE S0SUB 550:60T0 410 


Seen Zeigen des Bildes--—------—— 
550 FGR 

560 A$=INKEYS$: IF A$="" THEN 550 ELSE L6GR=RETURN 
570 ? == -----r-Loseschen des Bildes----------—. 


580 FELS: Z=1:RETURN ‘ 
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E90 "nn Bemalen der Flaechen------—-- 

&00 ECLS:PRINT 87, "Bemalen der Flaechen:" 

&10 PRINT & 87,"Gebe Funkt innerhalb der":FRINTS1Z27,"Flaeche und Farbe 
an." 

&20 PRINT 51647,"Forms":PRINT 8207," X, Y, Farbnummer <RETURN>" 

830 FRINT 8287, "Farbnummerns 1=schwarz= ":FRINT 86329, "2=blau"sPRINT 8377," 
S=orange":PRINT 5419, "4=gruen":FRINT 8455, "0,0,0=Auswahl ":PRINT 

&40 INFUT X,Y,FsIF X<O OR X>255 OR YiO DR Y> 255 OR FZ0 OR F>4 THEN 640 
450 IF F=0 THEN RETURN 

s&50 FAINT X,Y,F,4:605UB 550:60T0 540 

70 einlesen von Cassette---------- 

80 CLS:PRINT 8405, "Einlesen von Cassettes" 

590 FRINT 8485, "Recorder fertig{J/N}?" 

700 A$=INKEY$S:IF A$="" THEN 700 ELSE IF At<>"dJ" THEN RETURN ELSE PRINT 
5565, "Abbrechen mit <A>r!" 

710 FOR D=1 TO 100:NEXT D:FGR:FOR SfF=18432 TD 22511 STEP 80 

F7ZO AS=INKEYS$: IF A$="A" THEN RETURN:ELSE INPUT#-1,ZES 

720 FOR FL=0 TOD 79:FOKE SF+PL,VALCMIDSCZES, ZAFPL+1, 23) -100: NEXT FL 

740 NEXT SF: RETURN 

730 "oma Speichern auf Cassette-—-------- 

760 CLS:FRINT 5405, "Speichern auf Cassette: " 

770 PRINTS485, "Recorder fertig (J/N) ?" 

780 A$=INKEY$S:IF A$="" THEN 780 ELSE IF At<>"J" THEN RETURN ELSE FRINT 
85555, "Abbrechen mit <A>!" 

720 PRINT 8583, "Es werden 51 Strings aufgespeichert. ":PRINT:FRINT 

800 FOR D=i TOD 100:NEXT D:ZE=1:FOR SP=198432 TOD 22511 STEP 80: ZE$="" 
910 A&=INKEY$: IF At="A" THEN RETURN 

820 FOR FL=0 TO 79: ZES=ZE$S+RIGHT$ (STR$ (PEEK (SP+FLI+100) ,. SI) NEXT PL 

830 PRINT #-1,„ZE$:PRINT ZE;z ZE=ZE+1:NEXT SFP:RETURN 

8340 ° una Ausdrucken des Bildes-—----——-- 

850 ELS:PRINT 8405, "Ausdrucken des Bildes!":PRINT S485, "Drucker fertigt 
J/NI?" 

850 A$=INKEYS: IF At="" THEN BAO ELSE IF As<H"tgJ" THEN RETURN ELSE FRINT 
5555, "Abbrechen mit {A>!" 

8970 PRINT 85800, "Es werden 102 Zeilen ausgedruckt. ":FRINTSB40, ::6=1 


u 880 LFRINT CHR$ (15S} CHRS$ {ZT )CHRS$ (685) CHR$ (FT) ELFRINT 


890 FOR ANF=&H4800 TO &HS7EF STEP 40: Z$="":LPRINT:LPRINT CHR$ (27) CHRS (8 
BS)SLPRINT,z:PRINT G;:6=6+1 

900 A$=INKEY$: IF A$="A" THEN RETURN 

910 FOR AD= 0 TO 29:G60SUB 950:NEXT AD:GOSUR 980: Z$="" 

920 FOR AD=30 TD 38:605UB 950:NEXT. AD: GOSUB. 980: Z="" 

930 AD=39: GOSUB -9505: Z$=7$+STRING$ (16, "0" ) GOSUB 980: NEXT ANF 

940 LFRINT CHR$ (27) CHRSBFP) RETURN: 2 

950 AR=ANF+AD:FOR B=7:T0 0. STEP-1..% 

960 IF CHECK(B,AR) THEN 2Z$=Z$+"1" ELSE Z$= 76400" 

370 NEXT B:RETÜRN ai 

980 FOR S=1 TO LEN(Z$) STEP 6: T$=MID$ (76,546) 1 ZA=0 

790 V=VAL<(TSI: IF V=111111 THEN: ZA=643:60TD:1020sELSE IF V=0 THEN 1020 
1000 FOR F=& TO 1 STEP-1:IF VAL (MIDS(T$,P,1))THEN ZA=ZA+2A(P-1) 

1010 NEXT ‘P 

1020 IF ZA>Z1 THEN NR=192+ZA ELSE NR=128+ZA 

1030 LPRINT CHRS(14) CHR$ (NR) 3 NEXT S=RETURN 

1040 °----------- Sch USS-- 

1050 END 


RK 
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DATA SOFTWARE 





ELS 
LPRINTCHRS$ (27y"g® 5 
REM M.PFAFFENDORF AUGUST °83 


Das Programm gibt Ihnen die Mög- 
lichkeit, relativ komfortabel hoch- 
auflösende Grafiken beim Colour 
Genie auszudrucken. 

Es wird entweder nach dem 
Aufbau der Grafik geladen oder 
als Unterprogramm verwendet. Bei 
einer Verwendung als Unterpro- 
gramm muß es jedoch mit dem Be- 
fehl RENUM in einen passenden 
Zeilenzahlen-Bereich verschoben 
werden. Der Abschluß des Pro- 
gramms erfolgt dann mit RE- 
TURN. 

Das Programm arbeitet mit ei- 
nem Colour Genie und dem Star 
DP 510 Drucker. 

Martin Pfaffendorf 


FRINT"FORMAT:GROSS (6) MITTEL(M) KLEINIK) 7?" 


AS=INKEY$: IFA$=""THENSO 
IFAS="G"THEN1OO 

IFA$="M"THEN11O0 

IFA$S="K" THEN120 

SOTDSO 
LPRINTECHRS$ (27) "A" CHRS$ (4) 5; :6DTD130 


LPRINTCHRS (15) 3 CHRS$ (27) "AUCHRS (IT): SGOTOLSO 
LPRINTCHRS (15) SCHR$ (27) "50" CHR (27) "A"CHRS (2) 3: 6070130 


ECLS 
PRINT"ABGEFLACHTE ECKEN ? (J/ND" 
B$=INKEYS$: IFB&=""THEN1SO 


IFB$="J"THEND1=251:92=252:R1=253: R2=254: 50 T01 90 
IFB$&="N"THENG1=235: 02=238: R1=236: R2=2737 :GDT0190 


GOTDISG 

ELS:PRINT"DOFPELTER DRUCK ? tJ/N>" 
C$=INKEY$: IFC$=" "THENZOO 
IFC$="J"THENLFRINTCHRS$ (27) "6"5 :6OTO220 
FOR 

A=-40 

FORI=1T0101 

GOSUBSFIO 

FORX=(18432+A) TOI18471+A) 
N=PEEK (X) :M=PEEK{X+40) 

GOTDAOO 

H=N1+NZ+M1+M2 

IFH=0THENP=32 

IFH=1THENP=225 

IFH=ZTHENP=227 

IFH=4THENP=226 
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340 
350 
340 
370 
380 
370 
400 
410 
420 
Aa20 
440 
450 
450 
470 
480 
490 
S0o 
510 
5320 
ISO 
540 
350 
Sö0 
=70 
=g0 
Ss70 
500 
620 
530 
440 
650 
560 
670 


IFH=8THENP=228 
IFH=FTHENF=22F 
IFH=& THENPF=P30 
IFH=STHENP=231 
IFH=1ZTHENP=232 
IFH=STHENP=233 
IFH=10OTHENF=234 
IFH=7THENP=G1 
IFH=14THENP=02 
IFH=13THENP=RZ 
IFH=11THENP=RI 
IFH=1STHENP=23Y 
LFRINTCHRSE (F) 5 
IFT=1THENNI=KI: NET: M2=L2: T>0: 50TDS40 
NEXTX 

LFRINT 

NEXTI 

ECLS:L6GR:FRINT"PROGRAMM BEENDEN {(J/N} 7?" 
DES=1INKEYS$: IFD$=" "THENS2O 

IFD$="J" THENGPOELSE1O 

IFNI< >OTHENNI=1 

IFN?< >OTHENN2=2 

IFMIi<S >OTHENMI1=4 

IFM2< »OTHENM2=8 

GOTO2IO 

A=A+40: RETURN 

T=N: Z=1 

Ti1=INT (T/54):T=T- (64X71) 

T2=INT (T7168)21T=T- (15x%T?2) 

U1=INT (T74):T=-T-143U]1) 

U2=T 

IFZ=1 THENNI1=T13N2=T2:Ki1=U1s K2=U2: T=Ms 2Z=0: GOTOA2O 





680 T=i: SOTOS40. 
&90 END 





Jeder, der schon einmal beim TRS 
80 Model | in Maschinensprache 
programmiert hat, und dabei einen 
professionellen ""Hang-Up‘’' produ- 
ziert hat, wird sich darüber geär- 
gert haben, daß der Reset-Taster 
(links hinten im Gehäuse) manch- 
mal keine Reaktion erzeugt. 

Für die Basicprogrammierung 


. reicht dieser Taster vollkommen 


aus, aber sobald man den NMI- 
Vektor versetzt, wird man bei ei- 
nem Hang-Up vor ein fast unlös- 
bares Problem gestellt. Der einzi- 
ge Weg den Computer wieder in 
einen programmierbaren Zustand 
zu bringen, ist das kurzzeitige Aus- 


:und Wiedereinschalten des Gerä- 


Reset 


tes. Doch auf so eine Aktion re- 
agiert die Hardware, insbesondere 
die Speicher, allergisch. Läßt man 
also zwischen Aus- und Einschal- 
ten eine angemessen lange Zeit, so 
wird diese Art des Resets eine 
Recht zeitraubende Angelegenheit 
abgesehen davon, daß danach ein 
mühsam eingetipptes Programm 
gelöscht ist, und man so den Spaß 
am programmieren verliert. 

Abhilfe schafft ein zweiter. Re- 
set-Knopf, der dem Prozessor ein 
echtes Reset-Signal zuleitet, und 
nicht nur ein NMI-Signal. 

Der Einbau dieses Tasters ge- 
staltet sich denkbar einfach und 
selbst Anfänger können dabei 


nicht viel falsch machen. 

Der Einbau 
Zuerst besorgt man sich einen 
kleinen Einbautaster und etwa 50 
cm 2-poliges Kabel. Danach müs- 
sen alle Verbindungen zum Com- 
puter gelöst werden. Nun muß 
das Gehäuse geöffnet werden (6 
Schrauben am Boden in drei ver- 
schiedenen Längen, entsprechend 
der Gehäuseform). Nach dem Lö- 
sen der Schrauben dreht man das 
Gerät um und achtet dabei darauf, 
daß die Gehäuseschalen nicht aus- 
einander fallen. Jetzt läßt sich 
das obere Gehäuseteil leicht abhe- 
ben, Spätestens jetzt legt man das 
Gerät-auf eine weiche Unterlage. 


Mi=T1:M2=T2:L1=Ul; L2= U2..: “ 





EOLEIISSEIRLRRIE SC SERERI BESTEN SS OR EEENETR 





ELETLEEE IST EIESTEREENE 


ELEERENEREEDELESEOTERSNRRTRSERNÄSTENS 


Fe 


MESSER 


EEE 
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Nun hebt man die Tastatur vor- 
sichtig ab und klappt sie um. Da- 
bei achtet man darauf, daß das 20- 
polige Verbindungskabel zur 
Hauptplatine nicht geknickt oder 
zu stark belastet wird. Dann 
nimmt man die fünf Abstandgum- 
mis ab und merkt sich ihre Posi- 


Platinenausschnitt: 





Hat man die beiden auf dem Plan 
angegebenen Punkte A und B ge- 
funden, so muß man nur noch das 
Kabel an den beiden Punkten an- 
löten und auf der anderen Seite 
mit dem Taster verbinden. 

Jetzt sucht man sich einen ge- 
eigneten Platz im Gehäuse für den 
Taster, an dem er keinen Kurz- 
schluß verursacht. 

Danach erfolgt der Zusammen- 
bau der Einzelteile in umgekehrter 
Reihenfolge wie oben angegeben. 


tion. 

Erst jetzt kann man die Haupt- 
platine zusammen mit der Tasta- 
tur aus der unteren Gehäuseschale 
heben. 

Hat man das geschafft, sucht 
man IC Z 53 und merkt sich sei- 
ne Position; dann dreht man die 


ED 1 
1 
=» 
Gr 
2 
3 

262 

caun 
2 
=, ee 
oo... 
und m [7 
= o° E; m 

m 

[ ) 09. L " = 
- 00 Te 


Nachdem man sich vergewissert 
hat, daß keine Teile übriggeblie- 
ben sind, stellt man die Verbin- 
dung zur Peripherie wieder her. 
Nun kann das Gerät wieder in Be- 
trieb genommen werden. 

Hat man keine Fehler gemacht, 
so müßte bei jedem Druck auf 
den Taster der Computer mit 


“MEM SIZE?'" antworten. Dabei 
werden sämtliche Pointer In den 
Grundzustand zurück gesetzt. 

Der Vektor für dieses Reset 


beiden Platinen gleichzeitig um 
und sucht den unten angegebenen 
Platinenausschnitt. Eine Orientie- 
rungshilfe bietet dabei die Posi- 
tion der CPU, dem einzigen 40- 
poligen IC auf der Karte: 


nauansı 
BuUBung 
ara 





‚253 


liegt unveränderlich fest und zeigt 
auf die Adresse O0O00H. 

Der Speicherinhalt bleibt fast 
vollständig erhalten und so kann 
man nach einem Reset fast im- 
mer weiterprogrammieren. 

Ferner erzeugt ein Druck auf 
den Taster auch ein Signal auf 
dem Ausgang SYSRES (Pin 2 des 
Expansionport}, d. h. auch Peri- 
pheriegeräte werden in den An- 
fangszustand gebracht. 


Frank Nicklisch 
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Computertag in Hof 


Der in der letzten GENIE DATA 
angekündigte Hofer Computertag 
konnte als großer Erfolg angese- 
hen werden. 

Schon kurze Zeit nach Eröff- 
nung des Veranstaltungsortes füll- 
te sich: der Saal mit interessierten 
Laien und Freaks”, die an den 
verschiedensten Computern Mög- 
lichkeiten und Perspektiven der 
EDV in Heim, Hobby und Beruf 
erfahren konnten. 

Von Anfang an :belagert wurde 
die heißersehnte Floppy für das 
Colour Genie. An’ den gezeigten 
Programmen, die von Uwe 
Schmidt (Script Programm, 
GENIE DATA Nummer 4) vorge- 
stellt wurden, konnte man sich 
von der leistungsfähigkeit des Peri- 
pheriegerätes überzeugen. Auch 
die Fähigkeiten des Druckers Star 
DP 510/515 wurden von Hobby- 
programmierern...; gezeigt. 
Funktionsplot mit Einzeipunktan- 


steuerung, natürlich in Maschinen-> 
. Computer M23 von Mitsui-Sord. 
z bern Takama führte de Srstaun- 


sprache, bis zum Textverarbei- 
tungspragranm | ‚mit Blockversatz 


Von: 


und beliebiger Schriftwahl wurde 
demonstriert, was in diesem Gerät 
steckt. 

Auch die sonstige Software war 
nicht ohne Pep. So wurde ein Pro- 
gramm gezeigt, das dreidimensi- 
onale Darstellung in Bewegung 
setzte und in erstaunlicher Ge- 
schwindigkeit eine Funktion "pul- 
ste”. 

Für Geschäftsleute interessant 
waren die Demonstrationen auf 
Genie || und Ill. Hier konnte jede 
Software-Frage geklärt werden, da 
der Chefprogrammierer der Firma 
Trommeschläger, Herr Krüger, je- 
de Frage bereitwillig beantworte- 
te. Besonders die Möglichkeiten 
des Genie Ill wurden immer wie- 
der demonstriert, von professio- 
neller Buchführung bis zur Lohn- 
abrechnung und Lagerverwaltung 
reichten die Vorführungen, die mit 
offenen ‚Ohren aufgenommen 
wurden. 

 Farbgrafik war die Parole ‚beim 


lichsten Dinge vor, die auch von 
absoluten Laien schnell nachzu- 
vollziehen waren. Auch hier waren 
natürlich die Anwender der Wirt- 
schaft und des Gewerbes gedul- 
dige Zuhörer, die ihren Betrieb 
auf den Stand der Zeit bringen 
wollten. Für Anfänger auf dem 
Gebiet der Computerei, wurde am 
VZ 200 Color gezeigt, daß auch 
schon mit einfachen Mitteln eine 
EDV zum "'Sprechen” zu bewe- 
gen war. So wurde manchem 
Skeptiker die Wirkungsweise eines 
solchen Gerätes klar und viele.gin- 
gen nach Hause mit dem Gedan- 
ken, sich ein solches Wunderding 
zuzulegen. Alles in allem kann ge- 
sagt werden, daß dieser Tag so- 
wohl für die Besucher als auch für 
den ‘Veranstalter, den Computerla- 
den-Hannelore Staudt, ein voller 
Erfolg gewesen ist, da hier einem 
strukturschwachen Gebiet neue 
Perspektiven gezeigt wurden. 


Markus Heß 





Disketten Date; 


Haben Sie schon einmal auf Ih- 
ren Disketten ein Programm ge- 
sucht und nicht gefunden? 

Jetzt hilft Ihnen Prog 83 da- 
bei. Mit dieser Datei haben Sie 
die Möglichkeit Ihre Programme 
folgendermaßen sortiert auszuge- 
ben: 

a) nach Disketten sortiert 
b) nach Programmen sortiert 
c) den freien Platz auf Ihren 

Disketten 
d) wahlweise auf Drucker oder 

Monitor 

Prog 83 ist eine Diskettenda- 
tei, die auf New Dos 80 Vers. 


2.0 läuft. Die Datei wurde für 
ein doppelseitiges Laufwerk ge- 
schrieben, läßt sich aber in dem 
Diskettenzugriff auf andere Kon- 
figurationen ändern. 

Wichtig ist, daß die Disketten 
fortlaufend numeriert sind und 
der Name ein bestimmtes Format 
hat (Prot,0,Name=Disk-NN{NN= 
fortlaufende Nummer)). 

Da beim ersten Lauf noch keine 
Daten auf der Diskette sind, 
muß in Zeile 10 das Goto 990 ge- 
löscht werden. Nach dem Starten 
des Programmes eröffnet man mit 
N die Datei. Danach Goto 990 


wieder einfügen. 

Die Datei faßt 99 Disketten 
oder ca. 1248 Programme. 

Prog 83 ist eine sequentielle 
Datei, die Ihre Daten direkt zu 
Anfang in den Speicher liest. Des- 
halb ist sie schneller als Random- 
dateien. 

Einige Hinweise wären noch, 


daß Punkt B im Menue nur die. 


doppelten Namen aus der Liste 
löscht. Auf Bank 1 werden die 
Originaldaten gespeichert, wie sie 
von den Disketten gelesen werden, 
da Bank 1 automatisch beim Star- 
ten des Programmes eingelesen 








| 
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| 
| 
| 
| 
| 
| 
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wird. Zudem hat man die Möglich- dern: New Dos 80, plus Angabe seiner 
keit mit Bank 2 eine Liste zu 1) Free=Freier Platz für die Gerätekonfiguration, plus Unko- 
speichern, die man mit Punkt Programme stenbeitrag von 10,00 DM das 
B,C,D modifiziert hat. Zum Such- 2) Anzahl Prog.=bedarf keiner Programm seinem . Gerät ange- 
en reicht schon der Anfangs- Erklärung paßt zurück. 


buchstabe von dem Namen des 
Programmes aus. 

Beim Menue sind in der letz- 
ten Reihe einige Werte ängege- 
ben, die sich wie folgt aufglie- 


3) momentane Ausgabe 

(Printer oder Monitor) 
4) Angabe des Banks 

Wer möchte, bekommt gegen 
Zusendung einer Diskette mit 


Falls Fragen auftauchen, rich- 
ten Sie sich bitte an folgende 
Adresse: 

Michael Weidmann 
'Rübenacher Str. 115 
5400 Koblenz 


10 LLEAR20000: DEFINTA-Z: DIMAS$ (20007 „GR (75): HD=0: PZ=0: PR=1: PR$="Monitor 
on": GOSUB1090: GOSUBBIFS: GOSUB1 200: GOTO990 


20 GOTD27 
25 LPRINT 


2& PRINT@961, "ENTER =MENUE 


SPACERBAR =WIEDERHOLUNG"; 


27 A=PEEK (14400) : IFA=1 THENZYELSEIFA=128THENLAOELSEZ7 
M.E.N.U.E"T:PRINT:PRINT 
30 PRINTTAB(1)"A> Aufnahme neuer Disk"; TAB{40)"I> Monitor" 


27 GOSUBB70: PRINT" 


35 PRINTTAB(1)"B> Sortieren"; TAR(40)"J> Drucker" 


40 PRINTTAB{1)"C> Loeschen von Disk"sTAB(40)"K> Suchen" 
45 FRINTTAB(1)"D> Loeschen von Prog. "3 TAB(40)"L> Beenden" 
50 FRINTTAB{1?"E> Ausgabe freier Grans";TAB(40)"M> Ausgabe einer Disk" 


535 PRINTTAB({1I"F> Ausgabe Disksortiert":TAB{(40)"N> Ausgabe Progsortiert 


&0 PRINTTAB(1)"G> Speichern Bank 1":TAB(40)"0> Laden Bank 1" 
&2 PRINTTAB{1)"H> Speichern Bank 2": TAB{40)"P> Laden Bank 2" 


130 F=PZ-1:P1=1248-P 
140 PRINT@961,"Free= 


n Fi ur 


Anzahl .Prog.="P" 


150 A$=INKEYS: IFA$="" THEN1LSOELSE1&0 


IFA$="A"THENEZO 
IFAS="O"THEN1O2O 
IFA$="H" THENF72 
IFAS="P"THEN10232 
IFAS="E" THENI1O4A0 
IFAS="G"THENF3O 
IFA$="L"THEN1260 
IFA$S="D"THENS15 
IFA$="K" THENS6O 
IFA$= 
IFAS="F"THENA?O 
IFA$S="M"THENASS 
IFAS="N"THEN?740 


230 IFA&="B"THEN1240 

240 1FA$="@"THENZ2? 

250 IFA$="C"THENS4O 

260 1FA$="1"THENPR=1:PR$= 

270 GDOTD140 

290 ”AUFNAHME NEUER DISKETTEN 


320 CMD"DIR O 


"J"THENPR=0: PR$="Printer on":GOT027 


+ 


330 GOSUB400: GR (B} =0: GOSUB39YO: GDSUBA 10: GOSUBTAO 


340 CMD"DIR I 


350 GOSUB3SFO: GOSUBF&A0: GOSUB420: GOTOZS 
360 RESTORE: FORX=1T020: PI=PZ+1: READY: GOSUB370: NEXTX: RETURN 


370 A=PEEK (Y) 2 IFA=S3ZTHENAS (PZ} = 


"ILLI": 


"PRE s nn 


"PB$5 


"Monitor on"sGOTO29ELSE140 


a 


RETURNELSESBO 


380 X$="", FORY1=YTOY+11: X$=X$+CHR$ (PEEK(Y1) ) :POKEY1, 191: NEXTY1TA$ (PZI=X 
$:A$ (FZI=A$(PZI HC: RETURN 
3970 V$S=CHR$ (PEEK (1541353) 2 B$=CHRS$ (FEEK (15414) 3: 6R$=V$+B$: GR {BI =GR (BI +VAL 
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(ERS): RETURN 

400 V$=CHR$ (PEEK (15376) ) : B$=CHR$ (PEEK (15377) ) 1 C$=V$+B$r B=VAL (C$) ı GR(BI= 
Q: RETURN 

410 GR{B}=0:FORX=1TOFZ= IFVAL RIGHTS (A$ 0X) „23 ) =BTHENAS$ (X) ="77ZZZ":NEXT=RE 
TURNELSENEXT : RETURN 

420 GOSUBA425: CMD"0O",PZ,A$ (0) : A=0% FORX=1TOPZ: IFA$ (X) ="ZZZZ"THENPZ=PZ-i:N 
EXT: RETURNELSENEXT: RETURN 


425 FORX=0T010: IFLEFT$S (AS (X), 1}=" "THENASCKI="ZZZZ"SNEXTESRETURNELSENEXT 
RETURN 

510 ’LOECHEN VON PROGRÄAMMEN------------——- -- - 

515 GOSUBB7O: PRINT:PRINT:PRINT"=Y=Loeschen des Namens =N=Weiter ={} 
=Menue" 

520 FORX= 1TOPZ: FRINT@ES13,. "Disk Nr. "RIGHTS (AS (X) 233" "LEFTSCASIXI, 12) 


:: GDOSUBS25: NEXT: GOSUB420: GOTO25 

525 B$=INKEY$: IFB$="@" THENGSDSUB420: SDTO2IELSEIFBS$S="N"THENRETURNELSEIFBS$ 
zZ"YU THENAS$S (X) ="Z7ZZ" »RETURNELSES2S 

540 GOSUBB7O: PRINTES14, "Welche Diskette wollen sie loeschen"s:1INPUTB:6GO 
SUB410: GOSUB470: GOTO2S 

550 "SUCHEN NACH PROGRAMM-—--—-—- = —- m 7 

560 GÜSUBSTO 

570 FRINT&@257, "Bitte Frogrammnane angeben "ss INPUTE$ 

580 R=LEN{tE#$) 

570 GOSUBS7O: A=55: FORX=1TOPZ:IFLEFTS (AS COX) „EI -ESTHENC=VAL (RIGHTS (ASCXY, 
ZYIS:PRINTEA."D" ıC5" = "LEFTSCASCKI , 12); : A=A+32: NEXT: GOTO2SELSENEXT: IFA 
=&5THENd 10ELSEZS 

810 FRINTEeS1S, "DAS FROGRAMM "ES" IST NICHT IN DER DATEI ENTHALTEN": :GOT 
025 ; 

630 "AUSGABE --—--—- 77 mem en Te nn 

635 GOSUBB70: PRINT@257 ."Welche Diskette wollen sie Sehen"; : INPUTX:GOSUB 
570: GOTO25S 

670 GOSUBRFS:FORX=1TOPZ: Y=VAL (RIGHTS (A$ (X) „23 ) = IFY>HDTHENHD=Y: NEXTELSEN 
EXT 

“80 FORX=OTOHD: BOSUBAYFO: GOSUB70O1:NEXTX: GOTD2S 

690 LFRINT:LPRINTSTRINGS$ (64 ."-") 2 CL5: GOSUB7LO:LPRINT: LPRINTTAB (20) " INHA 
LT DER DISKETTE NR. ":X:605SUB710: LPRINT: ZZ=27Z+& 

700 A=0: FORY=1TOPZ:IFVAL (RIGHTS (AS (Y) „ZI I<>XTHENNEXTY:=: RETURNELSELPRINTT 
ABLAILEFTELASCY „ 12) s rA=A+15 3 IFA=SAOTHENA=0: ZZ=ZZ+1: 6GOSUBR7 10" LPRINT: NEXT 
Y:RETURNELSENEXT: RETURN 

701 FRINTEFRO, "ENTER = MENUE"s:FORPF=1TOP1:A=PEEK (144003 =: IFA=1 THEN2SELS 
ENEXT: RETURN 

710 IFZZ>=45STHENFORS=1TDZO: LPRINT:S NEXT = 2Z=0: GOTDSFOELSERETURN 

715 IFPR=1THENFORK=ITO2000: NEXT: RETURNELSERETURN 

740 Y=0: GOSUBB35SSLPRINTTAB{15)"> > >PROG 83 << <"rLFRINTSLFRINTTA 
B(10) "DISKETTEN-DATEIPROGRAMM V.1.0 "zLPRINT=:LPRINT:LFRINT:LFRINT:GOT 
07&0 

750 LPRINTTAB (0) "NR. ": TAB {5} "NAME" 3 TAB (ZO} "NR. "3 TAB(35) "NAME": LPRINTSTR 
ING$ (55, CHR$'t 1207) : RETURN 

760 GOSUB7S50: Z=7:FP=1 - 

770 FORX=1TOPZ 

780 Z=Z+1: IFZ=130THENSI=SI+1:PRINT: PRINTTAB (50) "SEITE"SI:PRINT=PRINT:SPR 
INT: PRINT: Z=2:G05UB750 

7909 GOSUBBI1 

B00 IFLEFT$(AS{X) , 12) =B$THENNEXT : GOTO2SELSEB$=LEFT$ (A$ (X), 12) 

810 Y=Y+1: IFP=ITHENSZOELSEBSO 

820 LPRINTTAB (OJYSTABISILEFTSCAS (XI „1233: P=2: NEXT:GOTO25 

830 LFRINTTAB<I3O)Ys TABCZSYLEFTSCAS (X) , 12) :P=1: NEXT: 60T025 

851 Q=PEEK (14400) : IFO=1 THENZSELSERETURN 

835 IFPR=1THENCLS:P1=900: SOTOBSAELSEELS: P1=2: GOTOBIB 

83%4 CMD"ROUTE,FR,DO 

837 RETURN 
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838 CMD"ROUTE,CLEAR 

837 RETURN 

870 CLS:PRINT@13, "DISKETTEN-DATEI-PROGRAMM VERS. 1.0 "sRETURN 
920 ’DISK I/Ü-------------- 4 
930 OPEN"O" 1, "GRAN/DAT","FF",3 

940 GOSUB420: FORX=1T075:PUT1,X,,6GR(X) 5: NEXT:CLOSE 

960 OPEN"O", 1, "PRO/DAT","FF",14 

970 FORX=1TOPZ:PUT1,X,, (12) A$(X) 3: NEXT: CLOSE: GOTO2F 

272 OPEN"O" 1, "BANK2/DAT" ,"FF",14 

374 FORX=1TOPZ:PUT1,X,, (1MA$CX) 3 :NEXT:CLOSE:GOTOZF 

990 OPEN"I",1, "GRAN/DAT" "FF", 

1000 FORX=1T075:6ET1,X,,BR(X)5 NEXT: CLOSE 

1020 DPEN"I", 1, "PRO/DAT", "FF",14 


1030 FORX=1TOLOFt1):6ET1.X,, (iM) AS (X): NEXT:PZ=X: CLOSE: PB$s="Bank 1":608 


UB420: GOTO2Y 

1032 DPEN"I",1, "BANKZ/dat","FF",14 

1034 FORX=1ITDOLOFIII:GETI1,X,, (14AS(M::NEXT:PZ=X:CLOSE: PB$="Bank 2":608 

UB420: GOTO29 e 
1050 "AUSGABE GRANS------- mm me nn nn 

1060 GOSUBBIS:LPRINTTAB (15) "Liste der freien Grans pro disk"”:LPRINT 
10647 A=0:FORX=1T075: IFGR (X) =SOTHENNEXTELSELFRINTTAB (A) "Nr "X3 ">" 6R (XI; 5A 

zA+15: IFA=50THENA=0: LPRINT:NEXTELSENEXT 

1070 GOTO25 

1080 "DATEN UND EINLEITUNGSTEIL-—--------------—- = 7 

1090 DATA15488, 15503, 15519, 155353, 15592, 195367 , 15582, 139597,156168,15631,15 

546, 15661 , 15680 , 15695, 15710,15725, 15744, 15759,15774,15789 

1100 RETURN 

1200 CLS: FORX=0T0127: :SET (X, O) = NEXT: FORY=OTD47: SET (127, Y} NEXT: FORX=127 

TOOSTEP-1:SET(X,47) : NEXT: FORX=47TOOSTEP-1:SET (OÖ, X) =NEXT 

1210 FRINT@B4,"> > > PROG 837<< <"s:PRINTE1FB,.'"D i skettend 
atei Programm vers.i1.0"; 

1220 PRINT@406, "Geschrieben von"; 

1230 PRINT@518,"Michael Keidmann 5400 Koblenz Rusbenacherstr.115"3 
1234 PRINT@444,"1 9 8 3"; :RETURN 


1240 CLS:FORX=1TOPZ: IFLEFTS CAS CK) „, 123 =B$THENLPRINTAS (X)" "as ASCX)="7ZZ 
Z":2 NEXT: GOSUB420: GOTDZFELSEB$=LEFT$ (AS (X) „ 12) :NEXT:= GOSUB420: GOTD2Y 
1250 FORX=1TOPZ: IFLEFTS$ (AS (X) „123 =B#$THENLPRINTAS (XI: " 2 "3:ASCKI="ZZZZI”: 


NEXT: GOSUB420: GOTO2FELSELEFT$ (A$ (X) RSET12) =B$: NEXT : GOSUB420: GOTD29 
1260 CLS:PRINT@257,"A=New Dos/80 B=Basic";: INPUTA$: IFA$="A"THEN1270EL 
SEEND | | 

1270 CMD"s 








Abonnieren - Profitieren 4 


Ein Abo der Fachzeitschrift GENIE DATA bringt Ihnen wirklich nur Vorteile. 
Zum Beispiel läuft in der nächsten GENIE DATA unsere große Serie über Z 80 
Assembler-Programmierung. Ein GENIE DATA Abo stellt sicher, daß Sie keinen 


Teil versäumen. Oder Sie haben als Abonnent der GENIE DATA den weiteren Vor- 
teil, daß Sie unter der Rubrik Kleinanzeigen drei Textzeilen kostenlos erscheinen 
lassen können. 

Also: Füllen Sie die eingeheftete Bestellkarte aus, und sichern Sie sich Ihr persön- 
liches GENIE DATA Abonnement! 
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Unter Umständen hatten auch 
Sie schon Probleme mit dem 
erstellen von Grafiken auf dem 
Genie I, Il oder Ill. 

Wenn das der Fall ist, dann 
erhalten Sie mit GRES ein Pro- 


gramm, daß Ihnen helfen kann, 


diese Probleme zu lösen. 

Um GRES in Betrieb zu nehmen, 
benötigen Sie einen der oben 
genannten Computer, mit Drucker 
und zwei Disketten-l.aufwerken. 
Zur Not geht es auch.mit.einem 
Laufwerk, allerdings müssen dann 
die Zeilen 22 und. 48: geändert 
werden, und zwar. „dermaßen, 


daß statt Laufwerk 1, Laufwerk 0 


angesprochen wird. 
Ansonsten ist"zum Aufbau de 


Programmes an und für sich nicht ( 
höchstens ı 
noch, daß die Druckroutine ab 


mehr viel zu sagen, 
Zeile 66 aus der GENIE DATA 
Nummer 2 stammt und einfach an 
den Star DP 510 angepaßt wurde. 
Sollten Sie mit dem Star DP 8480 
arbeiten, so kann die Routine aus 
Nummer 2 unverändert übernom- 
men werden. In Zeile 56 wird 
auf Schmal-Schrift umgeschaltet, 
da sich so das am wenigsten 
verzerrte Bild ergibt. Sollten Sie 
aber mit normaler Schrift arbei- 
ten wollen, so kann Zeile 56 
durch REM ersetzt werden, bitte 
nicht löschen;. da diese Zeile 
den Anfang eines Unterprogram- 
mes bildet. 

Wenn Sie GRES übernommen 


ı CLS 
2 DONERRORGOTOSS 
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-EDITOR 


haben, empfiehlt es sich, daß 
Programm vor dem Start auf 
Diskette zu speichern. Wenn es 
dann endgültig läuft, haben Sie 
folgende Funktionen zu Ihrer 
Verfügung: 
1. Bild zeichnen 

Um ein Bild auf den Bildschirm 
zu zeichnen können Sie die 
vier Pfeiltasten benutzen. Nach- 
dem Sie den Namen eingegeben 
haben, unter dem Ihr Werk auf 
Diskette gespeichert werden soll, 
löscht sich der Monitor und ein 
kleiner Cursor steht erwartungs- 
voll.blinkend in der linken oberen 


. Ecke. ‚Diesen Cursor. steuern Sie 


bei über den Schirm 


zu ‚hinterlassen, 


‚auf Diskette zu 


RL, 


HKArık 


IE a a2 


2. Bild auf Diskette speichern 
Wenn Sie Ihr Werk vollendet ha- 
ben, und es für die Nachwelt 
konservieren wollen, haben Sie 
die Möglichkeit, das Kunstwerk 
sichern. Sie 
tippen dazu gleichzeitig SPACE 
und Hochpfeil. Das Bild wird 
dabei unter dem Namen, den Sie 
am Anfang eingegeben haben, auf 
Diskette geschrieben. Übrigens 
wird dabei der Monitor zur 
Kontrolle weiß geschrieben, aber 
nicht erschrecken, Ihr Bild liegt 
ja auf der Diskette, von wo 
Sie es jederzeit wieder laden 
können. 

3. Bild von Diskette laden 
Um diese Funktion aufzurufen, 
tippen Sie SPACE und Tief- 


„pfeil. Daraufhin erscheint die 
.. Directory..von. Drive 1 auf dem 
ie , Bildschirm, und Sie werden auf 


der ‚gefordert, einen Namen einzuge- 
iese... ben... Das unter diesem Namen 


wieder: löschen. Wen . 

da sind, wo Sie hinwollen, kön- 
nen Sie. durch gleichzeitiges 
Drücken von; SHIFT. und Links- 
pfeil in den Zeichen-Modus ge- 
hen. Hier wird der Cursor genau- 
so bewegt, mit dem Unterschied, 
daß er jetzt einen Strich zieht. 
Um wieder inden .Lösch-Modus 
zu kommen, drücken Sie SHIFT 
und Rechtspfeil..Um.den ganzen 
Schirm zu löschen, benutzen Sie 
die CLEAR-Taste. 


gespeicherte Bild wird nach RE- 


TURN... geladen und 
dann auf Ihrem Monitor. 


erscheint 


4. Extras 
Sie haben zu jederzeit die Mög- 
lichkeit, daß Bild auf Ihrem 


„Monitor zu drucken, dazu tippen 


Sie einfach RETURN. Übrigens 
können Sie die Bilder auch mit 
Text mischen, den Sie einfach 
über die Tastatur eingeben. Aber 
statt SPACE tippen Sie zweimal 
die Links-Pfeil-Täste. 


3 PRINT" 4HHHHHHRISHHHHIHIHBIHBIHEHIHIHBIHIBEHIIHIIHIRIHIBIBIIHISHIBIIHIHIIHIHISIBIHIIHHISHIHIBIHISHIAHHHS 


#"; 
4 PRINT"# 
*": 
5 PRINT"# 


GRES 
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#"35 

6 PRINT"# 

#", 

7 PRINTHRHtHHRHRHRHHRHHIIHBIHIRHIHISIHHHHIEINES 
#"; 

8 PRINT" Grafik Editor - (c) 1985 by GENIE DATA" 

7? PRINT 
10 PRINT"Hochpfeil 

it PRINT"Tiefpfeil 

12 FRINT*Linkspfeil 

13 PRINT"Rechtspfeil 

14 PRINT"Linkspfeil + Space 
15 PRINT"Rechtspfeil + Space 
1& FRINT"Hochpfeil + Space 
17 PRINT"Tiefpfeil + Space 
18 PRINT"Return 

19 IFINKEY$=""THEN19. 

20 ELS:LINEINPUT"Wie soll das Bild heißen {z.B. Grafik) ":NAS 

21 X$=RIGHT$ (NA®, 4): IFLEFTSCXS, 1) ="/"THENPRINT"Lassen Sie die Dateibeze 
ichnung bitte weg."”:GOTD20 

22 NAS=NAS+"/dat:ıi" 

23 CLS 

24 X=0: Y=0:M=0 

25 SET{X,Y)sFORI=1T0O2:NEXTI:RESET (X, Y) = FORI=1TO2:NEXTI 

2b A$=INKEY$ 

27 IFA$<>""THENIFASC (AS) >32X1=1INTCX/2) = Y1=INT (Y/3) sPRINTSX1I+ (Y1RA4) „Ats 
ıX=X+2 i 

28 IFPEEK (16444) =OTHENGDTO2S 

297 S=PEEK (16444) 

30 IFS=8THENIFM=OTHENRESET (X, Y) : Y=Y-1:60T025 

31 IFS=14THENIFM=SÖOTHENRESET (X, Y) s Y=Y+1:60T025 

32 IFS=32THENIFM=OTHENRESET (X, Y) : X=X-1: 60T025 

33 IFS=44THENIFM=-OTHENRESET (X, Y) 2 X=X+1: 607025 

34 IFS=BTHENIFM=1THENSET (X, Y) 2Y=Y-1:60T025 

35 IFS=14THENIFM=1THENSET (X,Y})= Y=Y+1:60T025 

3& IFS=32THENIFM=1THENSET (X, Y} 2 X=X-1: 607025 

37 IFS=44THENIFM=ITHENSET (X, Y) s X=X+1:6G0T025 

38 IFS=140THENM=1:GOTD25 

37? IFS=19ZTHENM=0: GOTO25 

46 IFS=134THENGOTOSS 

41 IFS=144THENGOTD4B 

42 IFS=2THENELS 

43 IFS=1 THENGOSUBSS& 

44 GOTO2S 

45 OPEN"O”,1,NA$ 

45 FÜORI=-15360T016383: PRINT#1 ,PEEK (I) :POKEI,, 171:NEXT:SCLOSE 

47 CLS:GOTOS 

48 CLS:CMD"dir i" 

497 INPUT"Name"; NA# 

50 OPEN"I",1,NA$ 

51 FORI=153s0T0143835: INPUT#1,A:POKEI, AsNEXT:SCLOSE 

52 IFINKEY$=""THENS2 

553 GDOTO24 

54 PRINTPEEK (16444) : GOT054 

55 RESUME24 

56 LPRINTCHR$ (15) 

57 LPRINTCHRS (27) "Z"CHRS$ (6) 

58 DIMC (63) „B(&3) sFORX=0T053: C (X) =224: BCX) =224:NEXTX: Y=0 

»7 FORN=0TO15 _ 

60 FORX=OT043: B=PEEK (1S360+NXA4+X) = IFB>L27THENGOSUBASELSELPRINTCHRS (B} 5; 


Cursor hoch" 

Cursor runter" 

Cursor links" 

Cursor rechts" 

Modus Zeichnen" 

Madus Löschen” 
Speichern auf Diskette" 
Laden von Diskette" 
Bild ausdrucken”; 
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61 NEXTX: IFY=OTHENLPRINTCHR$ (133 2 LPRINTCHRS$ (13) :NEXTN: RETURN 
62 LPRINT:FORX=0T063: LPRINTCHRS (C (X) ) 5 :NEXTX:LPRINT: FORX=0T063: LPRINTEH 
R${B{X) )3 :NEXTX: Y=0: FORX=0T083: C(X)=224: FE NEXTX=LPRINT=INEXTN:LPR 
INTEHRS$ (7) S RETURN 
63 Y=1 
64 A=B AND 5 
65 GOSUB72 
66 LPRINTCHRS$ (W} ; 
67 A=(B AND 123 /4:605UB72 
68 CiX’I=W 
‚697 A=(B AND 48) 716: b605UB72 
70 BtX}=W 
71 RETURN 
72 IFA=1THENW=225:RETURN 
73 IFA=ZTHENW=227: RETURN 
74 IFA=STTHENW=231:RETURN 
75 IFA=OTHENW=224 : RETURN 


Um mit dem Star DPF 8480 zu arbeiten. nehmen Sie 
folgende Änderungen vor: 

Löschen Sie die Zeilen 56 bis 75. 

Ändern Sie Zeile 43 in: IF S=1 THEN GOSUB 5005 
übernehmen Sie untenstehende Zeilen in Ihr Programm. 


5005 LFRINTCHR$ C27ICHRE (58) ELPRINTCHRS (? FI CHRS 165) CHRS (7) EDIME (677 +8 RE 
FORKEOTOSTEC OO =L2B:TR OO =128:NEKXTKE Y=O 
5010 FORN=HOTO1S 
5015 FORK=OTOAZ: B=PEEK (15 ECHO IFBPIZ ?THENGDSUBS1OOELSELFRINTCHRS (B 
33 
5020 NEXT: IFY=OTHENLPRINTCHRS (12) FLPRINTEHRS (17): NEXTN:LFRINTCHRS (7) :RET 
URN 
5025 LFRINT# FORK=OTO&TELPRINTEHREIEUO FTNEXTKELPRINTIFORX=OTO6TILPRINTCH 
RS {BOOJSENENTXE V=OLFORK=OTO6530. 00 =128: E00 =1285 NEXTKSLFRINTINEKTNELFRIN 
TCHRS$ (7) E RETURN 3 
SI0O Y=i 
5105 A=BANDS 
5110 GOSUBS2OO 
5115 LFRINTCHRE (W}} 
5170 A=(BANDL2) 74: G0SUBS200 
5125 COO=W 
5170 A=(BAND48) 716: G05SURS200 
5175 Bilt=W 
5140 RETURN 
' 5200 IFA=1THENW=145: RETURN 
5205 IFA=ZTHENW=148: RETURN 
5210 IFA=STHENW=22S: RETURN 
5215 IFA=OTHENW=12B: RETURN 


Dieses Schaltbild erhebt 
icht den Anspruch etwas sınn- 
volles darzustellen! 
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Assembler- Teil 1 


In dieser Serie möchte ich Ihnen 
beibringen, wie Sie Ihren Com- 
puter (Colour Genie oder Video 
Genie/TRS-80) in Assembler pro- 
grammieren können. Leider ist 
Assembler alles andere als eine 
einfache Sprache, und so kann es 
leicht passieren, daß das Thema 
allzu trocken wird. Um dem 
vorzubeugen, werde ich mich 
um einen etwas weniger förm- 
lichen Ton in dieser Serie be- 
mühen. (Toll was?). Also lassen 


Sie mich gleich "unförmlich’” 
anfangen: 

Hallo Leute! 
Jetzt habt Ihr da Euren tollen 


Computer mit seiner tollen Spra- 
-che Basic, und da taucht schon 
wieder so'n Typ auf, der Euch 
davon überzeugen will, daß Ihr 
eine andere Sprache lernen müßt. 
Gerade Basic halbwegs gelernt und 
schon wieder pauken? "Nein dan- 
ke’' werdet Ihr sagen, " da blät- 
‚ter’ ich lieber weiter". 


ABER HALT! 
Ich habe nämlich einige gute 
Argumente, warum Ihr trotz- 


‚dem weiterlesen solltet! 

Z. B. wird es Spaß machen. 
Außerdem lernt Ihr was dabei, 
und ... nun ja ...äh ... das waren 
meine Argumente. Zwar nicht 
einige, aber immerhin doch zwei. 
Wenn das nicht genug ist. 

Aber jetzt genug der Vorrede. 
Ich glaube, wenn Ihr bis hier- 
hin gelesen habt, dann gehört 
Ihr zu den Leuten, die nichts 
erschüttern kann und die 
diesen Unsinn auch noch in der 
nächsten Ausgabe lesen werden. 

Ja bitte? Der Herr dort in der 
letzten Reihe? - Ah, Sie wollen 
wissen, welche Vorteile Assembler 
gegenüber Basic hat? 

Nun, der Hauptvorteil ist die 
Geschwindigkeit. Assembler ist 
nämlich schnell. Bis zu 1000 
mal schneller als Basic. Ein zwei- 
ter Vorteil ist die schwere Ver- 


ständlichkeit von Assembler. Ja, 
Sie haben schon richtig gehört! 
Das kann manchmal auch ein 
Vorteil sein. Nehmen Sie an, 
Sie schreiben ein Programm in 
Basic. Als es fertig geworden ist, 
gefällt es ihnen so gut, daß Sie 
sich denken:’'Sollen doch auch 
andere Menschen an meinem 
Glück teilhaben”, sprich Sie wol- 
len ihr Programm verkaufen. 

Gesagt, getan. Sie verkaufen 
Ihr Programm an mehrere Leute 
und unter diesen ist auch ein 
Herr nun nennen wir ihn 
Bogart. Dieser Herr Bogart schaut 
sich Ihr Programm an,. findet 
es sei ja gar nicht so schlecht und 
fängt an, fröhlich Kopien davon 
zu machen, um diese seinerseits 
zu verkaufen. Und es ist so ein- 
fach CLOAD und CSAVE und 
CSAVE ... 

Natürlich können Sie sich dage- 
gen wehren, z. B. vor Gericht 


gehen, aber vielleicht. wäre Ihnen 


der ganze Ärger erspart .geblie- 


ben, wenn Sie.das Progamm n 


Assembler geschrieben... hätten, 
denn vielleicht hätte Herr Bogart 
nicht gewußt wie er ein Assemb- 
lerprogramm kopieren kann. 

Es gibt natürlich noch mehr 
Vorteile, aber da diese Liste 
keinen Anspruch auf Vollständig- 
keit erhebt, beginnen wir jetzt 
mit den Nachteilen 
Aha, 
letzten Reihe. Was wollen Sie 
diesmal wissen? Ach, Sie möch- 
ten den Unterschied zwischen 
Assembler und Maschinensprache 
erklärt haben? Habe ich das 
wirklich nicht erwähnt? 

Nun, die Bezeichnung Assemb- 
lerprogramm ist ungenau, aber 
damit ist ein Maschinenprogramm 
gemeint. Ein Maschinenprogramm 
kann der Computer nämlich direkt 
verstehen, es besteht aus einer lan- 
gen Reihe von Zahlen (oder aus 
einer kurzen Reihe von Zahlen, 


wieder der Herr aus der 


wenn das Programm kurz ist), 
die zwar für den Menschen sinnlos 
sind, die der Computer aber als 
Befehle versteht. Da-.es für uns 
Menschen aber sehr beschwerlich 
wäre, diese endlose Reihe von 
Zahlen, die die verschiedenen 
Anweisungen an den Computer 
darstellen, zu behalten und daraus 
ein Programm zu entwickeln, 
lassen wir uns von einem anderen 
Programm helfen. Dieses Pro- 
gramm ist der sogenännte 
ASSEMBLER. Wir geben ihm 
die Befehle in Buchstaben ein, d. 
h. in für uns sinnvollen Worten. 
Mit diesen Wörtern kann der 
Computer selber nämlich garnichts 
anfangen. Aber dafür ist ja der 
Assembler da. Er übersetzt unsere 
Wortsymbole in die Zahlen, die 
der Computer als Befehle er- 
kennt. 

Aber.. Sie haben mich vom 
Thema gebracht. Ich wollte ge- 


Assembler ist "schwerer zu er- 
lernen als Basic. Wir können 
uns nicht einfach denken: Drucke 
Hallo auf den Bildschirm und es 
dann in English (bzw. Basic) 
übersetzen: PRINT Hallo’. 

Um unser Hallo auf den Bild- 
schirm zu bringen, müßten wir 
in Assembler extra ein kleines 
Programm schreiben. Denn die 
Befehle die unser Computer direkt‘ 
versteht, sind viel primitiver als die 
Befehle der Computersprache 
Basic. Aber dafür sind sie auch 
viel schneller. 

Ein zweiter Nachteil ist, daß 
die meisten Assemblerprogramme 
mehr Platz im Speicher des 
Computers brauchen als Basic- 
programme, eben weil wir mehr 
Befehle als in Basic brauchen. 

"Aber jetzt habe ich Euch 
mit. meinem Gerede genug ge- 
langweilt, fangen wir also mit 
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dem praktischen Teil an. 
SCHALTEN SIE DEN COMPU- 
TEREINI 

Und jetzt geben Sie folgendes 
Programm ein: 

Für das Colour Genie: 

1 FOR X=&H4400 TO &HATFF 
2 POKEX, 202: NEXT 

und für das Video Genie: 

1 FOR X=15360 TO 16383 

2 POKE X,191:NEXT 

und starten Sie es mit RUN. 

Wahnsinn, was? Aber jeder 
fängt mal klein an ... 

Aber lassen Sie uns rekon- 
struieren, was passiert ist. 

Der Bildschirm wurde angemalt, 
und zwar beim Colour Genie in 
den Farben, die vorher auf dem 
Bildschirm standen, und beim 
Video Genie einfach weiß. Nicht 
sehr aufregend, gewiß. Aber lassen 
Sie das Programm trotzdem noch 
einmal. laufen und achten Sie 
darauf, wie lange es dauert, bis 
der Bildschirm ganz angemalt ist 
und der Computer sich wieder 
mit READY meldet. Am besten 
messen Sie die Zeit mit einer 
Stopuhr, wenn Sie so etwas 
haben. Und wenn Sie soweit 
sind, dann merken Sie sich die 
Zeit und löschen das Programm 


Geben Sie dann folgendes Pro- 
gramm ein: 
Für das Colour Genie: 
1 RESTORE:FOR X=0 TO 14 
2 READ A:POKE &H4800+X, 
A:NEXT 
3 CLS:PRINT"”Drücken Sie RE- 
TURN, wenn bereit”’;:INPUT A 
4 CALL4800 


'5 DATA 33,0,68,17,1,68,1,191, 
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3,54,202,237,176,201,0,0,0 

und für das Video Genie: 

1 RESTORE:FOR X=0 TO 14 

2 READ A:POKE 32512+X,A: 
NEXT 

3 CLS:PRINT "Drücken Sie NEW 
LINE, wenn fertig”; INPUT A 

4 POKE16526,0:POKE16527,127 
:A=USR(0) 

5 DATA 33,0,60,17,1,60,1,255, 
3,54,191,237,176,201,0,0,0 

Achten Sie bei der Eingabe 
darauf, daß alle Zahlen ganz 
genau stimmen! Starten Sie dann 
das Programm mit RUN. 

Nehmen Sie Ihre Uhr und 
stoppen Sie die Zeit ..... 

Na, sind Sie mitgekommen? 
Was Sie gerade gesehen haben, 
war die Geschwindigkeit von As- 
sembler (jetzt habe ich mich 
schon wieder verhaspelt: natür- 
lich Maschinensprache). 

Oh nein, nicht schon wieder 
der. Der Typ aus der letzten 
Reihe gehört zu den Leuten, 
die immer alles ganz genau wis- 
sen wollen. Das sind die schlimm- 
sten. Also gut, ich erklärs’: 

Ich habe ja eben so viel von 
den Zahlen geredet, die für den 
Computer die Befehle darstellen. 


‘Diese: .Zahlen-Befehle stehen in 
Zeile:5. Das Basicprogramm, das 


wir: hier::eingegeben :haben, hat 
nur.:die Aufgabe, diese Zahlen 


-in:den: Speicher. zu schreiben und 


das - .Maschinenprogramm' (die 
Zahlen) aufzurufen. 

Klar? Durch. dieses Programm 
haben wir uns diesmal noch den 
Assembler gespart. Aber nächstes 
Mat brauchen wir ihn, wenn 
Sie also noch keinen haben, 
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dann besorgen Sie sich ganz 
schnell einen bei Ihrem Händ- 
ler, bis zur nächsten Ausgabe der 
Genie Data. 

In der nächsten Ausgabe werde 
ich das Geheimnis lüften, was die 
Zahlen bedeuten, und dann werde 
ich anfangen, Ihnen richtig As- 
sembler beizubringen. Aber bis 
dahin dürfen Sie im eigenen 
Saft schmoren und darüber brü- 
ten, wieso es beim zweiten Pro- 
gramm so schnell ging. 

Aber damit Ihnen die Zeit 
bis zur nächsten Ausgabe der 
Genie Data nicht zu lang wird, 
hier noch einige Fragen. Wenn 
Sie die nicht beantworten kön- 
nen, lesen Sie diesen Artikel 
noch einmal durch (Sie Armer), 
sooft bis Sie alle Anworten 
wissen. Und nicht mogeln — 
damit belügen Sie sich nur sel- 
ber! 

Also dann, bis zum nächsten 
Mal ........ 

1. Nennen Sie den: Hauptvorteil 
und -nachteil von Assembler. 

2. Welche Form von Befehlen 
versteht der Computer direkt? 

3. Wir haben ein Basicprogramm 
und Assemblerprogramm. Beide 
erfüllen dieselbe Aufgabe. Wel- 
ches verbraucht mehr Speicher- 
platz? 

4. Und welches ist schneller? 

5. In welcher Zeile (1-5) steht 
im zweiten Beispiel der Code 
(=die Befehle), die dafür ver- 
antwortlich sind, daß der Bild- 
schirm angemalt wird? 


Thomas M. Binzinger. 





Sucy, 
Ai 


RALF M. HÜBBEN, VERLAG FÜR COMPUTERTECHNIK, 5429 MARIENFELS 





Wenn .Sle ein gutes Programm für das 
COLOUR GENIE 


(Assembler oder complliert) 
geschrieben haben und daran Interessiert 
sind es zu verkaufen, dann schicken Sie es uns zu. 
Wir zahlen Spitzenpreise für die 
Copyrights an Spielen 
und Hilfsprogrammen. 
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SD Körper 


Dieses Programm ist für das 
Colour Genie geschrieben. Es 
läuft sowohl auf der 16k-RAM 
als auch auf der 32k-RAM Ver- 
sion. 

Das Programm erkennt selbst- 
tätig wieviel Speicherplatz zur 
Verfügung steht und dimensio- 
niert die verwendeten Felder ent- 
sprechend. 

Das Programm selbst dürfte 
keine großen Probleme aufwer- 
fen. Die Umrechnungsroutine 3D- 
2D befindet sich in den Zeilen 
500-590. Vor jeder Umrechnung 


und kann weggelassen werden. 
Die Steuerung des Programms 
erfolgt mit den Funktionstasten. 
Nach dem Starten des Pro- 
gramms und Eingabe der An- 
fangsparameter können die Dreh- 
ungen um die Raumachse und 
der .Vergrößerungsfaktor mit den 
Tasten F1-F8 gesteuert werden: 
F1 = Y-Achse +5 Grad 
F5 = Y-Achse —5 Grad 
F2 = Z-Achse +5 Grad 
F6= Z-Achse —5 Grad 
F3 = X-Achse +5 Grad 
F7 = xX-Achse —5 Grad 


Anfangseingabe. Mit {BREAK) 
wird das Programm abgebrochen. 

Noch eine Bemerkung über das 
Format in der die verschiedenen 
Drehungen ausgeführt werden: 
Eine negative Gradzahl bedeu- 
tet eine Drehung im Uhrzeiger- 
sinn. Um also einen Blickwin- 
kel von 45 Grad von oben zu 
bekommen tippt man bei der 
Anfangseingabe der X-Achse —45 
Grad ein. 

Wie das Definieren eigener 
Körper vor sich geht ist im Pro- 
gramm ausführlich beschrieben. 


wird die BREAK-Taste ausge- F4 = Vergrößerung +1 Nun noch. viel Spaß beim 
pokt, dies gibt nur einen gering- F8 = Vergrößerung —1 Ausprobieren des Programms. 
fügigen Geschwindigkeitsvorteil Mit (SPACE) gelangen Sie in die Uwe Schmidt 

100 REM IEKORRIEIOIORORODIORIORIOEK. 

i1lO REM I%6% EXK. 

120 REM Ik* rk 

130 REM KKX 3D - KOERPER KAK 

140 REM #8% “rX 

150 REM ıI£% Version 1.1 “xrXx 

1&0 REM XKX xRK 

170 REM X#% (0) Juli 1983 xx% 

180 REM FKX xrK 

190 REM X8X by 4. Schmidt Krk 

200 REM K£X xxx 

210 REM #x% xx 

225 REM IEREIKKKIKKKIKKT IKK IK X 

230 REM \ 

240 REM 

250 CLS:FELS: COLOURIS 

260 AZ=MEM: IFA2<IF1ATHEND1=120ELSEIFAZ>2ZOOOOTHENDI=1500 

270 DIMA(DI),„B{D1),C(D1):605SUB1200: CLS 

280 GOT0O710 

290 PRINT: INPUT"ANZAHL DER FUNKTE"sW 

300 FORY=OTOW-1:Z=3KY+1 

310 PRINT:PRINT"P(",Y5'"} =": INPUT"X="3E: INPUT"Y="5 Fı: INPUT"Z=":6 

320 AlI+ZDI=E: Al2+ZI=Fı AlI+ZI=G 

330 NEXT 

340 CLS 

350 GOTDIOO : 

360 PRINT: INPUT"FARBE (2-43"3 19: T9=-1INT(T9) 

370 IFTPYZORTI>4THENSSGO 

380 GOTDISO 

390 PRINT: INPUT"DREHPFUNKT BEI X,Y,Z":sB,C,D 

400 GOTOI9O 

410 PRINT: INPUT"DREHWINKEL {Y-ACHSE) ";M 
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420 GOTO10S0 
430 PRINT: INPUT"DREHWINKEL (Z-ACHSE) ":H 

440 GDOTD1070 

450 PRINT: INPUT"DREHWINKEL (X-ACHSE) "51 

460 GOTO1110 

470 PRINT: INPUT"MASSSTAB DRIGINALK ":T 

430 POKE16406, 82 

490 FGR 

500 FORY=OTOW-1:Z=38Y+1 

510 N=At1+Z) -Bı0=A(2+Z) -CıP=AlI+ZI-D 

520 J=N&#COS (Hk. 0174533) +DKSIN (HX. 0174533) :K=-NASIN (HX. 0174533) +0XC 
0S(H%.0174533) 

530 L=-J#SIN (IX. 0174533) +PXCOS (18.017453) : O=K&COS (Mk. 0174533) +L_xSI 
N (Mk. 0174533) ıR=-KASIN (MX. 0174533) +L&COS (MX. 0174533) :0=0XT: R=R&T 
540 B(Y)=Q:C1Y)=R:NEXT:GOTOSSO 

550 FGRSFELS: FCOLOURTP 

560 FORU=OTOW-2 

570 ON ERROR GDT01160 

580 PLOTB (WW +80,51-C (UI TOR (U+1) +80, 51-C (Url) 

590 NEXT 

600 P2=PEEK (&HFBOR) :P1=PEEK (&HFBBO) : IFPEEK (-1984) =ATHENPOKE16406, 2 
27: STOPELSEIFPEEK (-1984) =128THENPDKE 16406, 227: GOTO340 

610 IFPL=1THENS6O 

620 IFP2=16THENM=M+5:60T0490 

530 IFPF2=32THENH=H+5: GOTD490 

640 IFP2=44THENI=I+5: 6070490 

650 IFPZ=128THENT=T+1:60T0490 

660 IFP2=15THENM=M-5: GOTD490 

&70 IFP2=32THENH=H-5: 560T0490 

680 IFPZ=44THENI=1I-5: 60T0490 

690 IFP2=128THENT=T-1: 60170490 

700 GOTOACO 

710 PRINT:PRINT"BEISPIEL ODER EIGENE FIGUR?":PRINT:PRINT"BEISPIEL 
A -- BUADER":PRINT"BEISPIEL B -- PYRAMIDE":PRINT" C -- EIG 
ENE FIGUR"SPRINT=PRINT"A,B ODER C ?"; 

720 A$=INKEY$HIFA$=""THEN72O 

730 IFA$="C" THENPRINT"CHHGOTD29O 

740 IFA$="A"THENPRINT" A":1GOTO780 

750 1FA$="B"THENPRINT" = SOTDBAO 

760 60170720 = ne ı 
770 RESTORE . 
780 W=19: FORY=OTOW-11 Z=SKY+1 
790 READ E,F,G £ 
800 AU+ZISERAlZ+ZTI=SFIALT+ZISG 
B10 NEXT 

820 GDT0350 





830 DATA 0,0,0,2,0,0,2,2,0,2,2,132,0,1,0,0,1,0,0,0,0,2,0,0,2, 132,2 
B40 FORL7=1T017: :READD9,D8B,D7:NEXT: W=10: FORY=OTOW-1: Z=IRY +1 


850 READ E,F,6 

860 AlI+ZI=ErAl2+ZI=FsAlI+Z)=G 
870 NEXT 

BB0 GOTNZSO _ 

890 DATAO,0,0,4,0,0,4,4,0,0,4,0,0,0,0,2,2,4,0,4,0,4,4,0,2,2,4,4,0, 


700 LER:CLS 

910 PRINT"FARBE AENDERN (J/NI" 

920 AS=INKEY$: IFA$=""THENF2C 

930 IFA$="J" THENSSOELSEIFAS="N"THENISO 
949 GOTOFZO 
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2950 PRINT: PRINT"DREHPUNKT AENDERN (J/N}" 

9860 A&=INKEYS$: IFA$=""THENFSO . 

970 1FA$="J" THENS9OELSEIFA$="N"THENIFO 

980 GDOT09&0 

9790 PRINT: PRINT"DREHWINKEL Y AENDERN {J/" 

1000 A$=INKEYS$:s IFA$=""THEN1 000 

1010 IFA$="J"THENA10ELSEIFA$S="N"THEN10S5O0 

10620 GOTO1000 

1030 PRINT:PRINT"DREHWINKEL Z AENDERN W/" 

1040 A$=INKEYS: IFAS=""THENIDO4O 

1050 IFA$="J" THEN43SOELSEIFAS="N"THEN1070 

1050 GOTD1040 

1070 PRINT: FRINT"DREHWINKEL X AENDERN {J/M) " 

1080 A$=INKEYS$: IFA$=""THEN10BO 

1090 IFA$S="J" THEN4SOELSEIFAS="N"THEN1110 

1100 GOTDI10O80 

1110 PRINT: PRINT"VERGROESSERUNG AENDERN (J/N) " 

1120 A$S=INKEY$: IFA$=" "THEN1 120 

1130 IFA$="J" THENA7OELSEIFAS="N"THEN11S5O 

11406 GDTO11Z20 

1150 GOTO490 

11650 LER: CDLDUR4: CLS= FRINT= PRINT: PRINT: PRINT" VERGROESSERUNGSFAKTOR 
ZU GROSS tr m m mE" 

1170 COLDURI6:PRINT:PRINTSPRINT"ZUM WEITERMACHEN <SPACE> DRUECKEN 
I": FOKE16405,227 

1180 A$=INKEYS: IFA$<>" "THEN1180 

1190 RESUME 340 

1200 COLDURS: CLS: PRINT: PRINT" DREI-DIMENSIONALE GRAFIK 

1210 FRINTTAB(BISTRINGS (24,"U") , 

1220 COLOURIS 

1230 PRINT=PRINT"MIT HILFE DIESES PROGRAMMES IST ES"=PRINT: PRINT"M 
DEGLICH- DRET-DIMENSIDNALE GRAFIK AUF" 

1240 PRINT=PRINT"DEM BILDSCHIRM DARZUSTELLEN, ZU "=PRINT=:PRINT"VER 
GROESSERN UND IN DEN DREI RAUMACHSEN" 

1250 PRINT=PRINT"ZU DREHEN. ":PRINT=SPRINT"DIE DEFINITION EIGENER":P 
RINT=FRINT"GRAFIKEN GESCHIEHT WIE FOLBGT:":PRINT:PRINT=PRINT"WEITER 
MIT <SPACE> " 

1260 AS=INKEY$: IFA$S<{>" "THEN1260 

1270 ELS=:PRINT"MAN ZEICHNET DIE FIGUR ZUERST AUF"SPRINT:PRINT"PAPI 
ER UND SCHREIBT DIE 3D-KODORDINATEN" 


128G PRINT=PRINT"ALLER LINTEN-ECKPUNKTE AUF, SO DASS": PRINT:PRINT" 


DIE FIGUR KOMPLETT DEFINIERT IST." 

1290 PRINT: PRINT"DAS FORMAT DER KODRDINATEN IST ":PRINT:PRINT"X,Y, 
Z WOBEI X=BREITE Y=TIEFE Z=HOEHE." 

1300 PRINT=:PRINT"DANN ZAEHLT MAN ALLE KOORDINATEN-TRIFEL":PRINT:PR 
INT"UND SCHREIBT DIESE ZAHL EBENFALLS" 

1310 PRINT=PRINT"AUF. ":PRINT=PRINT:PRINT"WEITER MIT <SPACE> " 

15320 A$=INKEY$: IFA$<>" "THENI1320 

1330 CLS=PRINT"DAS PROGRAMM FRAGT DIE DATEN DANN IM"=:PRINT=PRINT"D 
IALDOGBETRIER AB.” 

1340 COLOUR4: PRINT=PRINT:=PRINT"BEACHTE: "3: COLOUR15: PRINT" ES DUER 
FEN NUR MAXIMAL"D1/S:PRINTTAB (10) "WERSCHIEDENE PUNKTE EINGE-":P 
RINTTAB (10) "GEBEN WERDEN !tı" 

1350 GOSUB1FYO 

1350 PRINT=PRINT:PRINT"BEGINNE MIT <RETURN>" 

1370 AS=INKEYS$: IFAS< >CHR$S(IIITHENI13S7O 

1386 RETURN 

1590 PRINT=:PRINT"BEI NEUSTART DES PROGRAMMS STEHEN ALLE"=PRINT=:PRI 
NT"PARAMETER AUF "O” 11" 

1400 RETURN 
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Ein-/Ausgabe 


Wer einige Zeit in Basic program- 
miert hat, erreicht irgendwann 
einmal die Grenzen der Möglich- 
keit mit dieser Sprache. Zum 
einen ist das die begrenzte Ge- 
schwindigkeit, zum. anderen viel- 
leicht, daß auf CPU-Register nicht 
zugegriffen werden kann. Das 
Zauberwort für eine bessere Aus- 
nutzung des Computers ist die 
""Maschinensprache‘. Obwohl Ma- 
schinensprache eigentlich auch 
nicht so kompliziert ist (was man 
denkt, wenn man  Hex-Listings 
ansieht), gibt es für den An- 
fänger einige Probleme. Register- 
inhalte oder Texte auf dem 
Bildschirm auszugeben erfordert 
nämlich schon eigene Programme 
und diese meistens die Kenntnis 
von ROM-Routinen. Die folgen- 
den neun kleinen Programme 


dienen dazu, dem Anfänger. etwas: 


über diese Schwierigkeiten::hin- 
wegzuhelfen. Sie können ohne 
Änderung übernommen werden 
und laufen z.B. auf dem TCS 
COLOUR ASSEMBLER. Um sie 
jedoch nicht stumpfsinnig an- 
wenden zu müssen, sind die 
Programme ausführlich dokumen- 


. tiert, und wer elementare Kennt- 


nisse in der Maschinensprachen- 
programmierung besitzt, wird 
keine Verständigungsschwierig- 
keiten haben. Relative Sprünge 
sind immer mit dem $ -Zeichen 
durchgeführt, was zusätzliche 
Symbole überflüssig macht. Zum 
Verständnis seien jetzt nur noch 
die fünf verwendeten ROM-Rou- 
tinen angegeben: 

002BH 
liest ein ASCIl-Zeichen von der 
Tastatur in den Akkumulator, 
wenn keine Taste gedrückt ist 
enthält er O. 

0033H 


sämtliche Bildschirmausgaben soll- 


ten über diese Routine ablaufen. 
Es wird das ASCil-Zeichen im 
Akkumulator ausgegeben und der 


Cursor um eins nach rechts 
bewegt. Basic-Steuerzeichen wie 
z.B. Zeilenvorschub sind ebenfalls 
möglich. Verwendet wird die 
Farbe in 4023H, die Cursor- 
position steht in 4020H und 
4021H. Am Ende des Bildschirms 
wird automatisch nach oben ge- 
rollt. 
O5DYH 

Inline ROM-Routine. Der Cursor 
wird eingeschaltet und B Zeichen 
werden zur Eingabe freigegeben. 
Das erste Zeichen wird in der 
Speicherzelle abgelegt, auf die 
HL zeigt, das nächste in HL+1 
usw. Rücksprung erfolgt durch 
RETURN oder BREAK. Der 
Cursor wird wieder ausgeschaltet, 
und B enthält die Anzahl der ein- 
gegebenen Zeichen. Bei BREAK 
ist außerdem das C-Flag gesetzt. 

3, &50RFAFH! i 
gibt. das. HL- -Register dezimal auf 


dem ara aus. Diese. ‚Rou-. 





zeigt, Srhöht HL und. gibt ‚das i 
nächste Zeichen aus, bis zu einem 


Anführungszeichen oder 0. 
Beschreibung der Programme" 


1. GETCHR wie -ROM-Routine - 
002BH, Registerinhalte werden 


jedoch nicht verändert. ©"... 
2. QUTCHR wie ROM- Routine 


0033H, Registerinhalte . bleiben 
erhalten. Eh 
3.PRINT1 Format: :- 

CALL PRINT ® 

DEFM "TEXT" 

DEFBO 

Ausgabe des Textes "TEXT", 
Programmfortsetzung nach 
DEFB 0 (oder NOP). Register- 


inhalte bleiben erhalten. 
4. PRINT2 Format: 
TEXT DEFM "TEXT" 
DEFBO 
LD HL,TEXT 


CALL PRINT2 
Ausgabe des Textes ab der Adresse 
Text, Registerinhalte siehe 
OUTHLD, 


5. OUTAH gibt den Akkumu- 
lator hexadezimal aus, Register- 
inhalte bleiben erhalten. 
6. OUTHLH gibt das HL-Re- 
gister hexadezimal aus, Register- 
inhalte bleiben erhalten. 
7. OUTHLD gibt das HL-Register 
dezimal aus, da die ROM-Rou- 
tine fast alle Registerinhalte verän- 
dert, müssen die später noch be- 
nötigten durch PUSH vor der 
Anwendung gesichert, und 
mit POP zurückgeschrieben wer- 
den. 
8. INPHLD Eingabe einer max. 
5-stelligen Dezimalzahl in das 
HL-Register. 
9. INPHLH Eingabe einer max. 
4-stelligen Hexadezimalzahl in das 
HL. Register. 

ANWENDUNGSBEISPIEL 
Verwendete Programme: 
PRINT1,INPHLH, OUTHLD 

:" START 


as: CALL? 01CYH Bildschirm löschen 


L.D A,10D; Farbe hellgelb 
LD (4023H),A 

WEITER 
CALL PRINTI 
DEFM ’‘Hexadezimalzahl:' 
NOP 
CALL INPHLH 
CALL PRINTI 
DEFM "Dezimaläquivalent:’ 
NOP 
CALL OUTHLD 
JR WEITER 
ENDSTART 
Das Programm erfragt nach dem 
Starten durch NAME/TM/NS eine 
Hexadezimalzahl und gibt dann 
diese Zahl dezimal aus. Es bildet 
sich das Gegenstück zu dem Hand- 
buch des COLOUR ASSEMB- 
LERS angegebenen DEZ/HEX 
Umwandlungsprogramm. 


Jan Hemming 

















GETCHR 


\ OUTCHR 


PRINTI 





NOTNUL 





RETURN 





PRINT2 


OUTAH 


OUTNIB 


OUTHLH 








.OUTHLD 
INPHLD 
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PUSH 
PUSH 
CALL 
POP 
POP 
RET 


PUSH 
PUSH 
CALL 
POP 
POP 
RET 


EX 
PUSH 
LD 
INC 


AND 


JR 
CALL 
JR 
POP 
EX 
REF 


EQU 


PUSH 


PUSH 
RRCA 
RRCA 
RRCA 
RREA 
CALL 


; SOFTWARE 


DE snotvendige Registerinhalte 
IY ‚retten 

AA2BH ;siehe Routinenbeschreibung 
IY wiederherstellen 

DE 

DE ;DE und IY werden verändert 
IY 

Aß33H ;siehe Routinenbeschreibung 
IY 

DE 


(SP),HL;rette HL und hole Adr. des ersten Zeichens 
AF ;Akkuinhalt retten 
A,(HL) ;Zeichen in Akku 
HL ;Zeige. auf. mächstes Zeichen 
A sA=9 ? 
Z2,$+7 ;(RETURN) ja 
OUTCHR ;Ausgabe des ASECII-Zeichens 
$-8: s(NOTNUL) Wiederholung 
AF ;Akku und Flags wiederherstellen 
(SP),HL;HL wiederherstellen 
. ;Rücksprung auf 1.Befehl nach dem String 


28A7H ;Verwendung der ROM-Routine 


AF ;‚Akkuinhalt zweimal. 
Ar ;ssichern 
;Vertausche obere vier 
‚Bits mit unteren 
;ABCDEFGH=EFGHABCD 


’ 
$+9 ;(O8TNIB) untere vier Bits ausgeben 
Ar ;Ehemalige untere vier Bits wiederherstellen 
$+5 ° ;(OUTNIB) ausgeben 
AF ‚alten Akkuinhalt zurückachreiben 
;‚Rücksprung \ 
BFH } lösche obere 4 Bits 


A,9EH ;Gleiche Akku so ab, daß 
;Akkunihalt=ASCII-Code 
A,AdH ; 


E ’ 
OUTCHR ;ASCII-Zeichen ausgeben. 


AF ;‚Akkuinhalt sichern 
A,H ;MSB in Akku laden 
OUTAH ;und ausgeben 

A,L ;LSB IN Akku laden 


DOUTAH ;und ausgeben 


AF ;Akkuinhalt wiederherstellen 


AFAFH ';Verwendung der ROM-Routine 


AF ;Registerinhalte 
BC ‚von AF, BC und DE 
DE ;ssichern 


B,> ;Eingabe von max. 5 Zeichen, die ab 





| 
| 











DEREUSESEOEES WERTEN SETSESEERAEILRELERDIITNS ZT NEALERTELSETÄNE ORALTDUATNEERR 


NEXT 


READY 


INPHLH 


NEXT 


ENDE 


POP 
POP 
POP 
RET 


PUSH 
PUSH 
PUSH 


INPHLH+3 LD 
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HL,RESERV ; HL abgelegt werden 

‚siehe Routinenbeschreibung 
C,##66H;bei BREAK Rücksprung ins BASIC 
:DE zeigt auf erstes Zeichen 


A5D9H 


DE,HL 
HL, 
A.(DE) 
3@H 
C,$+21 
3AH 
NC,$+17; 
38H 

HL 

BE 
HL,HL 
HL,HL 


AF 
BC 

DE _ 
B,4 


A5B9H 


5 


’ 
’ 


;sHkL löschen 

‚Zeichen in Akku holen 

skleiner als ASCII Code von f ? 
(READY) ja 

größer als ASCII Code von 9 ? 
(READY) ja 

;ASCII Code in Binärzahl umwandeln 
‚lade BE mit dem alten Inhalt: von HL 


SHL=HL*2 
;‚Gesamtprozedur HL=HL*1BD 


. 
’ 
. 


’ » 
;BCE mit errechneter Binärzahl laden 


’ 
. 
’ 
’ 


3 
sund zu HL addieren 


zeige auf nächstes Zeichen 


;(NEXT) Wiederholung 


;Registerinhalte 


’ 


’ 
’ 


sviederherstellen 


;Registerinhalte 
svon AF, BC und DE 
ssichern 


‚Eingabe von 4 Zeichen, die ab 
HL,RESERV ;HL abgelegt werden 


3 


siehe Routinenbeschreibung 


C,A@66H;bei BREAK Rücksprung ins BASIC 


DE, HL 
HL,g 
A,(DE) 
38H 
C,$+23 
AH 
C,$+12 


NC,$+21 
7 

BE 
B,d 
C,A 
HL,HL 
HL,HL 
HL,HL 
HL,HL 
HL,BC 
BC 
DE: 
$-3@ 


DE 
BC 


‚DE zeigt auf erstes Zeichen 
;HL löschen 


:Zeichencode in Akku 


;Code muß mindesten 3@H groß sein, sonst 
: (REDO) C-Flag gesetzt 


kleiner als 1fD ? 
(ENDE) ja, 

‚kleine als 17 ? 
;(REDO) ja 

‚größer als 22 ? 
;(REDO) ja 


; 


;Umrechnung für ABCDEF 
;B ist Schleifenzähler 
:BC mit errechneter Zahl Lagen 


IHL=HL*2 


10 


;HL mit 16 multiplizieren 


sund Ergebnis dazuzählen 


;Schleifenzähler wiederherstellen 


;zeige auf nächstes Zeichen 
(NEXT) sooft wiederholen, wie Zeiehen 


eingegeben worden sind 
;Registerinhalte adeshorstälien 
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SOFTWARE 





REDO! 


POP -AF 

RET 

CALL PRINTl ;Text ausgeben 
DEFM "Redo from start:" 

NOP 

JR INPHLH+3 ;neue Eingabe 


RESERV DEFS 5 





Laufschrift 


Laufschrift ist ein Programm für 
den TRS 80/Video Genie mit 16 
oder mehr KBYTE RAM. Man 
kann damit Texte in ca. 2,5 cm 
großen Lettern über den Bild- 
schirm laufen lassen und zwischen- 
durch Sonderfunktionen, wie z. B. 
Blinken der auf dem Bildschirm 
befindlichen Schrift oder hin und 
her wandern einzelner Buchsta- 
ben, durchführen. 

Es ist eine Tonroutine einge- 
baut, durch die passende Töne 
hörbar werden. Sie wird in eine 
Stringvariable (a{0}) gepackt, die 
nicht verändert werden darf. 


Wenn man das Programm star- 
tet, erscheint zunächst ein Text, 
durch den die verschiedenen Mög- 
lichkeiten des Programmes klar 
werden. Hat man genug gesehen, 
so drückt man SPACE, wodurch 
man in den Texteingabe-Modus ge- 
langt. Hier wird immer der Teil 
der Nachricht angezeigt, der beim 
Laufenlassen der Schrift auf dem 
Bildschirm zu sehen wäre, sodaß 
man die Sonderfunktionen ent- 
sprechend eingeben kann. 

Möchte man nun eine Sonder- 
funktion in Anspruch nehmen, 
drückt man den linken Pfeil. Nun 


erscheint ein Menue, aus dem man 
sich etwas aussuchen kann (D be- 
deutet, daß keine Sonderfunktion 
benutzt wird). Danach wird man 
nach der Anzahl der .Wiederho- 
lungen gefragt (ausser natürlich, bei 
D), die man ebenfalls angeben 
sollte. Ist man fertig mit der Text- 
eingabe, drückt man NEW LINE, 
um sich die eingegebene Textfol- 
ge zeigen zu lassen. 

Und nun viel Spaß beim LAUF- 
SCHRIFTEN. 


Jörg Tegeder 


100 REM FERKKEREIKREKKEKK KK IK ER KT IKER ER EI RI K IKK IK EIER X 


200 REM ı8% 


LAUFSCHRIFT 


300 REM 38% MEM-SIZE = 32760 
400 REM X8% Eopyright (C) 1983 
500 REM X8% Joerg Tegeder 


800 REM x#% 
700 REM x8% 
800 REM x8% 


Telefon: 02247 - 4147 


xxx 
xix 
Kix 
xiK 
x8XK 
xxx 
KxK 


F00 REM KERKRERELKKKKERKTER ER KK ER KT ER KER KU KT KIT RR X 


1100 PRINT & 461,"Bitte gedulden Sie sich einen Mament !"; 


1200 ELEAR 4000 

1250 POKE 16405,0 

1400 DEFSTR A 

1500 DIM At100), B{110, 


3) 


1600 At0)="01234567890123456787012345&6"’27 Zeichen fuer spaetere Tonrou 
‘ 


1700 B=PEEK (VARPTR (A (0) 3 +1) +PEEK (VARFTR (A (0) ) +2) #256 


1800 FOR C=B TO B+26 
1900 READ D 
2000 E=E+D 
2100 FOKE C, D 
2200 NEXT C 


2300 IF E<>33521 THEN PRINT"Daten falsch eingegeben !": STOP 
2400 IF PEEK(14395)<>201 THEN POKE 233514, B-254&K INT (B/2564): POKE 23317, 


INT (B/25&) ELSE POKE 16526, 


2500 B=USR (0) 
2600 FOR B=32 TD 95 


B-256% INT (B/256): POKE 165727, INT(B/255) 


en tn an Beste Bess Ze LS SE eg ee 
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2700 FOR C=1 TO 53 

ZRO0 READ D 

2700 AlB)=ALB)I+CHRS (CD) 

3000 NEXT C 

3100 R{BI=ALB)+CHRE (26) +STRING$ (5, 24) 

3200 FOR C=1 TO 53 

3300 READ D 

3400 ABI =ACB) +EHRS {D) 

3500 NEXT E 

3600 D=USR INT {RND (0) 85000) +1000) 

3700 NEXT B 

=B00 ELS 

3900 At1)="LAUFSCHRIFT" +CHRS$ (O0) +EHRS$ (BI +". . „COPYRIGHT (C)" +CHR$ CI) +CH 

R$(2)+" 1985 BY...JOERG TEGEDER...KEPLERSTRASSE 5. ..5206 NEUNKIRCHEN — 

S71...<SPACE>" +CHRE (1) +CHR$ (ZI +" ZUM UNTERBRECHEN DRUECKEN...BEIM TEXT 

EINGEBEN ”" +CHRS$ 1974) 

4000 Atl1l)=Alı)+"” FUER SONDERFUNKTIDNEN DRUECKEN !" +CHR$ (2) +CHRS$ (40) 

4100 AtZI=STRINS$(LENtA(1)), 323 

4200 GOSUB 14200 

4300 E=PEEK (VARFTRERCSI I +1) +PEEK (VARPTR (A 0599 +2) 8256 

44090 FOR C=D TO D+LEN(AUHI) -1 

4500 POKE E, PEEK(C)I 

4800 E=E+1 

4700 NEXT C 

4800 ACLI=ACI)+STRINGELZE, 52) 

4900 FOR B=0 TOD 12 

s000 FOR C=1 TO 20 

s100 IF PEEKI14400)=128 THEN: EC=20s NEXT Cs GOTO 14400 

S200 NEXT C 

32300 GDOSUB 14200 

5400 IF PEEK(D+B)=0 THEN Di=PEEK(D+B+1): GOSUB 12100: GOSUB 14200: ST=D 

+RBz EN=D+PEEK (VARPTRALLYII-SE POKE VARPTR(ACH)H)," PEEKLVWARPTR (AC1))) 2: 
SOSUB 13700: 60T0 5300 

5500 IF PEEK{D+B)=1 THEN DIi=PEEK(D+B+1): GOSUB 8300: GOSUB 14200: ST=D+ 
B: EN=D+PEEK (VARPTR(ALI)))-3: POKE VARPTR(A(H)), PEEK(VARPTR{ACIYI-2: 
GOSUB 13700:G60T0 5300 

54600 IF PEEK(D+EBI=2 THEN DI=PEEKID+BE+1)s GOSUB 11700: GOSUB 14200: ST=D 
+Be oEN=D+PEEK (VARPTR(ALLIII-3: FOKE VARPTR(ALI), PEEKIVARPTRI{ALHII-2: 
GOSUR 13700:60T0 5300 

5700 FOR C=558-B44 TO 548 STEP 4 

SBOO FRINT & TC, ACPEEK{DYI: 

53700 D=D+1 

5000 NEXT C 

#100 NEXT B 

6200 B=1 

6300 FOR C=1 TO 10 

6400 IF PEEK(14400)=128 THEN C=i0: NEXT C: GOTD 14400 

8500 NEXT E 

ah0O GOSLUB. 14200 

6700 IF en THEN Di=PEEK (D+B+13): GOSUB 12100: GOSUB 14200: 

ST=D+B+12: =D+PEEK (WARPTR(ALLY I I -3: POKE VARPTR(A(1)). PEEKLVARPTR (AL 
1)))-2:3 Em 13700: GOTOD &400 

5800 IF PEEK(D+B+12)=1 THEN DI=PEEK(D+B+135): GOSUB 8500: GDSUB 14200: 5 
T=D+B+122 EN=D+PEEK (VARPTR(A(1)))-33 POKE VARFTRIACUHYI, PEEK(VARPTR (Al 
333-2: GOSUB 13700: 60TD 4400 

69006 IF PEEK(D+B+12)=2 THEN Di=PEEK (D+B+13): GOSUB 11700: GOSUB 14200: 

ST=D+B+12: EN=D+PEEK (VARPTR (ACH) I) -F: PDKE VARPTR(AC1)), PEEK(VARPTR(AL 
1)))-2: GODSUB 13700:60T0 8400 

7000 FOR C=51& TD 571 STEF 4 

7100 PRINT 8 C,„ AtPEEK(D+B-1))3 
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7200 
7300 
7400 
7500 
7600 
7700 
7800 
79700 
8000 
8100 
8200 
8300 
8400 
8500 
3500 
8700 
800 
8700 
FO00 
7100 
F200 
9300 
2400 
7500 
7600 
7700 
7800 
979700 


10000 


D=D+1 

NEXT © 

IF B<{LENtAt(1})-14 THEN B=RB+l: GOTD 4300 
A{LY=STRINGS (LEN (A(TII, 32) 

GÜOSUB 14200 

E=PEEK (VARPTR {ATI I +1) +PEEK (VARPTR AUS) +2) X256 
FOR C=D TO D+LEN(A(S)) 

FOKE C, PEEK(E) 

E=E+1 

NEXT C 

GDOTO 4800 

E1=0 

=: 

FOR C=51& TO 572 STEP 4 

E=E+1 

AlEI="" 

FOR Ci = 0T0 2 

ALEI SA CEI+ECHRS (PEEK (CIi+C+15360) ) 
NEXT Ci 
AIEI=ACE) +CHRS$ (26) +5STRINGS (3, 24) 
FOR Ci=44 TO 44 

ALE) SALE) +CHRS$ (PEEK {C1+06+15360)) 
NEXT Ci 

Ei=-E1r100 

F=USR (E1) 

NEXT C 

FOR G=1 TO Di 

E=3 

FOR C=51ä& TO 572 STEPF 4 


10100 E=E+1 


10200 
10300 
10400 
10500 
10600 
10700 
10800 
109700 
11000 
11100 
112009 
11300 
11400 
11500 
11500 
11700 
11800 
119700 
12000 
12100 
12200 
12300 
12400 
12500 
12600 
12700 
12800 
129700 
135000 
13100 


CLS 
PRINT 85 C, AtlEds 
FOR F=1 TO 10 
NEXT F 
Z=USR (GX254+C) 
NEXT C 
FOR C=572 TO 51& STEP -4 
PRINT 8 C, AtlBı 
FOR F=1 TO io 
NEXT F 
E=E-1 
Z=USR (62564 +C) 
IF &5<Di THEN CLS: NEXT C ELSE NEXT C 
NEXT 5 
RETURN 
FOR E=1 TO DI 
=USR (EX256) 
NEXT E 
RETURN 
A(2)=5TRING# (128, 32) 
C=PEEK (VARPTR (A CZI I +1) +PEEK (VARPTR (A(2)3+2)3 8256 
F=15872 
FOR E=C TO C+127 
POKE E, PEEK({F) 
F=F+1 


IF RND(0O)>.5 THEN Z=USR t2000+RND (2557): NEXT E ELSE NEXT E 


FOR E=1 TO Di 

ELS 

C=USR (Z0O00+RND (255) ) 
FOR C=i TO 30 











| 
| 
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13200 NEXT C 

Z300 FRINT 85 512, Al?)ı 

13400 FOR C=1 TO 30 

13500 NEXT CT, E 

13600 RETURN 

12700 FOR C=ST TO EN STEP 2 

13800 FOKE TC, FEEE(C+D) 

13900 FOKE C+1l, PEEK(C+E) 

14000 NEXT C : 

14100 RETURN 

14200 D=PEEKAVARFTR(ACLII+LI +FSHRPEEH (VARFTR (ALL) I +) 
14700 RETURN 

14400 FOKE 18405, 1 

14500 CLS 2 

14400 Ati)et" 

14700 ZA=0 

14800 A=INKEYS 

147900 FRINT '& 17, "Bitte.geben Sie den Text eırn !"; 
15000 FRINT $ 343, CHR$(1S6)STRING$ (14, 130)CHR$ (188) 4 
15100 FRINT 5 471, STRING$ (16, 1319; 

15700 AtTI=CHRS (143) 
15300 FOR B=1 TO 5: 
15400 GOSUBR 16500 
15500 A=INKEYS = 
15600 IF Ac>"" AND A 
NEXT RB: GOTO 17700 
15700 NEXT BE 
15800 ACZI=CHRE BB) 
15900 FOR B=1 TO 5 
18000 GOSUB 16500 ° 
168100 A=INKEY$ Se a 

16200 IF A<Y"" AND A<ICHRSCIE) .THEN GOSUB 16700: ELSE IF AXy"" THEN B=5: 
NEXT B: GOTO 19900 Et we 

168300 NEXT B 

16400 GOTO 15700 

16500 PRINT 8 407, CHR$(149}RIGHT$ (All), 14) ALDI STRINGS$ (14-LEN (RIGHTS (A 
(1), 14)), 329: 

16600 RETURN 

15700 PRINT $ 420, STRING$(14, ID; 

16800 IF A=CHR$ (8) THEN IF LEN(A(1))=O THEN RETURN ELSE IF LEN(AL))=Bt 
ZA, 1) THEN ZA=ZA-1 ELSE Atl)=LEFTECALLI, PEEK(VARPTR(ACLIY)-1) 

18700 IF LEN(A(1))+ZAxX2>219 THEN FRINT 5 430, "Text zu lang !"s: RETURN 
17000 IF A=CHR$(9) THEN GOSUB 17400: RETURN 

17100 IF ASC(A)<F2 DR ASC (A) FO THEN RETURN 

17200 Atl)=Al1l)+A 

17300 RETURN 

17400 FRINT $S S91,"SONDERFUNKTIONEN :"; 

17500 FRINT 8 6837 "Rene nunun. ..Blinkende Anzeige"; 

175800 FRINT 8 771, "B........Wandernde Buchstaben": 

17200 PEINT 8.788 "Denen Tonfolge”; 

17800 PRINT 8 849, "Daunen esunenun ann. „ Aussteigen"; 

17900 A=INKEY$ 

18000 IF A="" THEN 17900 

18100 IF ASCIA<AS OR ASC(A)>&B THEN GOTO 179700 

18200 PRINT $ 571, STRING$S (128, Z2)STRING$ (178, 32) STRINGE (64, 32); 
18300 IF A="D" THEN RETURN 

18400 ZA=ZA+1 

18500 B{ZA, 1?=PEEK (VARPTR{ALLIY) 

18500 B(ZA, M=ASCLA)-65 

18700 AZI="" 


) THEN GÜSUR 18700 ELSE IF Ax>"" THEN B=5: 
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18800 PRINT 6 912,"Anzahl der Wiederholungen ->" A(ZYSTRINGS (4, 3293 
18900 A=INKEYS 

19000 IF A="" THEN 18800 

19100 IF A=CHRS (13) THEN GOTO 19600 

19200 IF A=CHRS(B) THEN IF LEN(ACH)I>O THEN AlZ)=LEFTS(A(Z), PEEK(VARPT 
R(ACHYI)-1) 

19300 IF ASC.(A)<AB OR ASC(A)>S7 THEN GOTO 18800 

19400 IF PEEK (VARPTR (ALZIY)I<3 THEN A(ZI=ALZHI+A 

19500 GOTO 18800 

19600 PRINT 5 912; STRING$ (64, 32)3 

19700 B(ZA, 3)=VÄAL(A(Z)) 

19800 RETURN 


19900 IF ZA>O THEN FOR B=ZA TO 1 STEF -1: Ati)=LEFTS(ALI), B{B, 1}3)+CHR 

%(B(B, ZII+CHR$(B(B, DI) +RIGHTS(AC1), PEEK(VARPTR(ACHI))-BIB, 1)): NEXT 
B 

2000 POKE 16405, O0 

20100 CLS:60TO 4100 . 

20200 DATA 205, 127, 10, 77, 105, 211, 255, 45, 32, 253, 60, 
105, 211, 255, 45, 32, 253, 175, 211, 255, 201’Daten fuer 
Tonroutine. 

20300 ’Es folgen Daten fuer GROSSBUCHSTABEN. 

20400 DATA 

128, 128, 128, 128, 128, 128, 

128, 148, 128, 128, 145, 128, 21000 DATA 

168, 168, 128, 128, 128, 128, 152, 140, 144, 151, 131, 149, 

184, 184, 144, 174, 174, 132, 156, 140, 144, 183, 179, 132, 

152, 156, 132, 178, 183, 132 156, 140, 132, 181, 176, 144, 

20500 DATA . 156, 140, 144, 181, 176, 133, 

140, i60, 132, 152, 161, 144, 156, 140, 132, 183, 177, 144 

152, 164, 128, 156, 179, 166, 21100 DATA 

13&, 148, 128, 128, 128, 128, 156, 140, 132, 151, 129, 128, 

128, 160, i32, 128, 137, 144, 156, 140, 132, 181, 179, 149, 

164, i28, 128, 152, 129, '128 148, 128, 148, 151, 131, 149, 

20400 DATA 140, 156, 132, 176, 181, 144, 

176, 160, 144, 140, 137, 132 128, 128, 148, 180, 176, 149 

128, 144, 128, i3l, 135, 129, 21200 DATA 

128, 128, 128, i&0, 148, 128, 148, 160, 132, 151, 137, 144, 

128, 128, 128, 131, 131, 129, 148, 128, 1289, 181, 176, 144, 

128, 128, 128, 160, 144, 128, 180, 160, 148, 147, 129, 147, 

128, 160, 132, 152, 129, 128 180, 128, 148, 149, 137, 149, 

20700 DATA = 152, 140, 144, 165, 176, 133 

152, 172, 144, 175, 177, 133; 21300 DATA 

152, 148, 128, 176, 181, 144, 156, 140, 148, 151, 151, 129, 

152, 140, 144, 184, 179, 144, 152, 140, 144, 165, 152, 145, 

140, 140, 148, 176, 179, 149, 156, 140, 148, 151, 175, 145, 

148, 160, 128, 131, 171, 129 152, 140, 132, 178, 179, 132, 

20800 DATA 140, 156, 132, 128, 149, 128 

156, 140, 132, 179, 179, 132, 21400 DATA 
152, 140, 132, 167, 179, 132, 148, 128, 148, 181, 176, 149, 

140, 172, 148, 184, 135, 128, 148, 128, 148, 138, 154, 128, 

156, 140, 148, 183, 179, 149, 148, 128, 148, 157, 137, 149, 

152, 140, 144, 178, 179, 133 164, 160, 152, 152, 137, 144, 

20900 DATA 164, 160, 132, 128, 149, 128, 

140, 144, 128, 136, 132, 128, 140, 172, 132, 184, 177, 144 

160, 144, 128, 160, 148, 12B, 21500 DATA 

160, 152, 132, 137, 164, 144, 160, 180, 128, 129, 149, 129, 

176, 176, 144, 140, 140, 132, 128, 148, 128, 137, 157, 129, 

140, 176, 128, 176, 140, 129, 160, 132, 128, 139, 147, 129, 

152, 140, 144, 128, 179, 128, 128, 164, 128, 131, 155, 129, 

160, 176, 128, 165, 185, 145 128, 128, 128, 17&, 176, 144 
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Ä GEENNTN 5 NE et a: GENIEDAT KLEIN-ANZEIGEN-BESTELLUNG 
N BONNEMENT B 


Bitte veröffentlichen Sie nachstehenden Text in der 
Hiermit bestelle ich Abonnements) der Zeitschrift ER EIER.) gabe Von ZEINIE- DATE unrerzöse RUBEIK 


GENIE DATA. Kleinanzeigen. 


Mir ist bekannt, daß ich das Abonnement zu jedem Quartal, 
jeweils 6 Wochen vor Quartalsende, kündigen kann. j 

















Der Bezugspreis beträgt innerhalb der BRD nur DM 30, -- 
pro Abonnement. (Sechs Ausgaben) 


Die Bezugsdauer verlängert sich nach Ablauf eines Jahres um 
weitere 12 Monate, solange bis das Abonnement gekündigt 
wird. 





| 
| 
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Mit obigen Bedingungen erkläre ich mich einverstanden : 








Unterschrift: Datum: Unterschrift | Datum 


Bei Jugendlichen unter 18 Jahren, Unterschrift eines 
Erziehungsberechtigten! 











Mit meiner Unterschrift versichere ich, keine urheber- 
rechtlichen Bestimmungen zu verletzen. 


GENE MAT KONTAKT-KARTE GENIE DATA INSERAT-BESTELLUNG 














; r Reservieren Sie uns bitte angekreuzten Platz für ein Inserat 
ur ia IB ITENIE DNS _ 2 2 SaPBelne BSaehiüns zum Erscheinen in der nächsten GENIE DATA. Unsere Satz- 
Be: vorlage, bzw. Film, geht Ihnen umgehend zu. 

O Bitte schicken Sie mir weiteres Informations-Material. O /I Seite DM 800, -- 

Hiermit bestelle ich zur schnellstmöglichen Lieferung: O 1/2 Seite DM 360, -- 
; ; O 1/3 Seite DM 275,-- 

Anzahl f Artikel Preis O 1/4 Seite DM 216.-- 
O 1/8 Seite DM 130, -- 


alle Preise + gesetzl. MWSt. 


O Senden Sie uns bitte Ihre momentan gültige 
Anzeigen-Preisliste 





Unterschrift Datum 








ERIPEEgOC LEEREN RIESEN LOENESSTÄRST 
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Für alle diejenigen, die..die.in 
der GENIE DATA veröffentlichten 
Maschinenprogramme . eingeben 
wollten, aber nicht wußten,.;wie 
sie dies tun sollten, ist-der kleine 
Monitor ""MINIMON' die: :geeig- 
nete Hilfe. 

Der Monitor urftaßt etwa 730 
Bytes, und wird durch: das. .Basic- 
Programm (Siehe Listing) in den 
Bereich 7BOOH bis 7DDBH ge- 
poked. Der Entry: ‚Point, das ist 
die Adresse, bei der der Moni- 
tor "MINIMON!' gestartet wird, 
liegt bei 7B66H (bzw, 31590). 


Die Bedienung. ist denkbar 
einfach. Als: erstes muß: - das 
i ic-Pro ramm.einge- 












sollte man 


daß es, bevo 
Werte in den 


gramm zur’ Sicher 
nehmen. . 

Hat man ‘das: Bäsic-Programm 
eingegeben und. auf Band auf- 
genommen, wird es mit RUN 
gestartet. Jetzt heißt es warten. 
Wurde in den DATA-Zeilen ein 
Fehler eingegeben, so meldet 
der Computer einen ERROR 
und gibt die entsprechende Zeilen- 
nummer aus. Sie muß korri- 
giert und das Programm erneut 
gestartet werden. 

Sind alle Eingaben allerdings 
fehlerfrei, so meldet sich der 
eigentliche Monitor "MINIMON”. 
Es ist soweit, und die Reise in 
die Welt der Maschinenprogramme 
kann beginnen. 

Der Monitor "”MINIMON” 
kennt insgesamt 10 Befehle. 
Sicherlich sind dies nicht umwer- 
fend viele, aber genügend, um die 
ersten Schritte in der Maschinen- 
programmierung zu wagen. Wem 
der Befehlssatz nicht ausreicht, 


Minimon 


kann den Monitor nach Belieben 
vergrößern. 
Befehle des Monitors 
"MINIMON” 
D XXXX 

Der Speicherbereich ab der Adres- 
se XXXX wird im Hex-Format 
ausgegeben. In der vordersten 
Spalte steht die Adresse, dann 
der Speicherinhalt der folgenden 


16 Bytes. Bei Drücken einer 
Taste wird die nächste Zeile 
ausgegeben. 

AXXXX 


Der Speicherbereich ab der Adres- 
se XXXX wird im ASCII-Format 
ausgegeben. In der vordersten 
Spalte steht die Adresse, dann 
der Speicherinhalt der folgen- 
den.48 Bytes. Bei Drücken einer 
Taste. wird die nächste Zeile aus- 
gegeben. 
EEEKIRX 


in die Speicherzelle XXXX kann 
ein Hex-Wert geschrieben wer- 
den. Der zum Speicherplatz ge- 
"hörende Inhalt wird dargestellt. 


TAXXXX 
In der Speicherzelle XXXX kann 
ein beliebiges ASCII-Zeichen 
(Eingabe über die Tastatur) ein- 
gegeben werden... Der zum Spei- 
cherplatz gehörende Inhalt wird 
im Hex- und ASCII-Format dar- 
gestellt. 

IXXXX 
Mit dem J-Befehl kann ein Ma- 
schinenprogramm an der Adresse 
XXXX gestartet werden. Alle 
Registerinhalte gehen verloren. 
Ein Rücksprung zum Monitor 
”"MINIMON” kann mit einem 
RET (Return) erfolgen. 

L 


Ein Maschinenprogramm kann in 
den Computer eingeladen wer- 
den. Es muß jedoch darauf ge- 


achtet werden, daß das einzu- 


ladene Programm nicht den 
Monitor "MINIMON“ über- 
schreibt, und ihn somit zerstört. 
Während des Ladevorgangs wer- 





den Programm-Name und Entry- 
Point angezeigt. Tritt ein Lade- 
fehler auf, so wird ein ERROR 
ausgegeben und der Lädevorgang 
muß wiederholt werden. Evtl. 
sollte die Lautstärke am Casset- 
tenrecorder kontrolliert werden. 
C 
Funktion wie der L-Befehl, nur 
wird das Programm nicht im 
Speicher abgelegt. Dieser Befehl 
wird zum Überprüfen eines Tapes 
verwendet. 
WAXXXNYYYY ZZZZ 
Ein Maschinenprogemm, welches 
im Speicherbereich XXXX bis 
YYYY liegt, wird auf Band 
aufgenommen. ZZZZ gibt den 
Entry-Point an. Nach der Auf- 
nahme sollte das Band mit dem 
C-Befehl überprüft werden. 
UXXXX 
Die Hex-Zahl XXXX wird in eine 
Dezimal-Zahl umgewandelt. 
B 
Mit B kann in den Basic-Bereich 
zurückgesprungen werden. 
Die einzelnen Befehle werden 
durch Drücken der entsprechen- 
den Buchstabentaste undanschlies- 
send der 'ENTER'-Taste aufge- 
rufen. Die Werte für XXXxX, 
YYYY oder ZZZZ können dann 
im Hex-Format eingegeben wer- 
den. Alle Befehle können mit 
"BREAK’ abgebrochen werden. 

Jetzt gleich eine erste An- 

wendung des Monitors: 
Er soll sich als SYSTEM-Tape auf 
Band aufnehmen. Dazu drückt 
man die Taste 'W’ und ’ENTER'‘. 
Der Computer fragt jetzt nach der 
Startadresse. 

Es wird 7BOO eingegeben. Hat 
man sich vertippt, drückt man 
'BREAK’ und wiederholt die 
Eingabe. Ist die Adresse einge- 
geben, fragt der Rechner die End- 
adresse ab. Hier gibt man 7/DDB 
ein. Nun muß nur noch der Entry- 
Point eingegeben werden, wel- 
cher bei 7B66 |!iegt, und die 
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Aufnahme beginnt. Vorher sollte 
natürlich die Cassette vorbereitet 
werden und der Recorder auf 
Aufnahme stehen. Nach kurzer 
Zeit meldet sich der Computer 
wieder mit COMMAND und eine 
weitere Eingabe kann gemacht 
werden. Mit dem C-Befehl sollte 
die gemachte Aufnahme noch 
kontrolliert werden. 

Jetzt hat man einen Monitor, 
der jederzeit mit SYSTEM einge- 
laden werden kann. Alle Program- 


me, die mit dem Monitor "MINI- 
MON” aufgenommen werden, er- 
halten den Namen "MINIMO”, 
so auch die eben gemachte Auf- 
nahme. 

Um ein Maschinenprogramm 
aus der GENIE-DATA in den 
Computer einzugeben, wird der 
I-Befehl benutzt. Hierbei darf 
das Programm natürlich nicht in 
dem Speicherbereich liegen, in 
dem der Monitor selbst liegt. 


Erst- aufnehmen, dann starten. 
Sollte nämlich ein Fehler ein- 
gegeben worden sein, stürzt der 
Rechner ab und die Arbeit war 
umsonst. 

Bleibt zum Schluß nur zu sa- 
gen: Viel Geduld beim Tippen, 
viel Spaß beim Probieren, und 
wer den Monitor "MINIMON” 
erweitert hat, möchte sich mal 
bei mir melden. Meine Adresse: 
Martin Höh, Unter Krahnenbäu- 
men 6, 5000 Köln 1. 











Logo! Auch hier gilt wieder: 


+ + + MINIMON + + + 


von Martin Hoeh 


10 CLS 

20 P=31488 

30 FOR I=0 TO 66 

40 FOR Q=1 TO 11 

50 READ X : Y=Y+X 

60 NEXT Q 

70 READ 2 

80 IF Y< > Z THEN PRINT"++ ERROR ++ Check Line"; I#10+1000:END 
90 Y=0 

100 NEXT I | 

110 RESTORE : FOR I=0 TO 66 

120 FOR Q=1 TO 11 
130 READ X 

140 POKE P ,X 
150 P=P+1 

160 NEXT Q 

170 READ 2 

180 NEXT I 

200 POKE 16526 „ 
210 POKE 16527 „ 
220 X=USR(0) 

230 REM 
1000 DATA 195,102,123, 42, 42, 42, 32, 77, 73, 78, 73, 879 
1010 DATA 77, 79, 78, 32, 40, 86, 69, 82, 83, 73, 79, 778 
1020 DATA 78, 32, 49, 46, 51, 41, 32, 42, 42, 42, 13, 468 


102 
123 























1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 


1220 


1230 


1240 
1250 
1260 


1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 





DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


SOFTWARE 


66, 
79; 
475 
775 
82, 
84, 


89, 
69, 
32, 
77; 
82, 
34, 
34, 66, 
64, 33, 
123,205, 
248, 1, 
217;. "8, 
204, 6, 79,203, 63,203, 63,203, 63,203, 
205,177,123,- 85,121,230,715,2055177,123, 
201,198, 48,254, 58,248,198, 7,201,205, 

0,254, 1,202,125,123,201, 62, 32,195, 

0, 33, 84,123,205,167, 40,195, 


32, 
725 
755 
65, 


77, 
32, 
79, 
78, 


65, 
47, 
69, 
68, 
79, 82, 62, 
69, 78, 68, 
13,205,201, 

3,123,205, 
167, 40, 33, 
49,253,127, 


82, 
32, 
76, 
63, 
13, 
34, 


84, 
49, 
78, 
32, 


73, 
57, 
13, 
34, 
0, 83, 
69, 78, 

1, 33,192, 63, 
167, 40, 24, 12, 
63,123,205,167, 
33,100,123, 6, 


78, 
56, 
13, 
135 
84, 
84, 


32, 
51, 
67, 
60, 
65, 
82, 
34, 
33, 
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72, 
32, 
II 
69, 
82, 
89, 
32, 
74, 


750 
576 
628 
636 
714 
769 
874 
778 


40,205,1371 
1,205,1146 
58,100,123,254, 66,194, 60,124,195,1396 


63,1353 
87,1558 
73,1691 
51,1246 


12,124,205,1188 


185,123,254, 48,250,208,123,254, 58,250,231,1984 


123,254, 65,250,208,123,254, 
245,205, 51, 

15,201,230, 
203, 39,203, 


15, 60,246, 


241,205,156,123,213,123,205, 51, 
195, 51, 0, 62, 13,205, 51, 0,124,205, 
124,125,205, 31,124,195,194,123,254, 
85,124,205,199,123,205, 44,124, 6, 
205, 26,124, 35, 16,249,205,185,123, 
254, 65, 32, 27,205,199,123,205, 44,124, 
48,126,237, 91, 32, 64, 18, 62, 25,205, 

0, 35, 16,242,205,185,123, 24,232,254, 
32, 22,205,199,123,205, 44,124,126,205, 
124, 62, 94,205, 51, 0,205,250,123,119, 
24,237,254, 84, 32, 44,205,199,123,205, 
124,126,205, 26,124,205,194,123,126,237, 
32, 64, 18, 62, 25,205, 51, 0, 
51, 0,205,185,123,119,245,205, 51, 
205, 26,124, 35, 24,215,254, 74, 32, 
199,123,205,201, 1, 49,253,127, 


197,233,254, 76, 32, 78, 62,119, 50, 


71,242,208,123,1921 
0,241,254, 58,242,244,123,230,1893 
8,201,205,208,123,1512 
39,203, 39,203, 39,245,205,208, 1626 
123,209,178,201,205,194,123,205,250,123,103,1914 
205,250,123,111,195,194,123,245,205,194,123,1968 
0,209,122,1648 


31, 937 


68,194,1637 
16,126,1257 
24,239,1431 


6,1284 
51, 959 
73,1389 
26,1311 
35,1268 
44,1451 
91,1581 


62,197,205, 921 
0,241,1425 
14,205,1208 
1,102,123,1384 
7,125,1233 
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1430 DATA 
1440 DATA 6,205, 


205,147, 2,205, 53, 2,254, 


53, 2,205, 51, 0, 


85, 32,249, 6,1240 
16,248,205, 44,1035 
1450 DATA 2,205, 53, 2,254,120, 40, 31,254, 60, 32,1053 
1460 DATA 245,205, 53, 2, 71,205, 20, 3,133, 79,205,1221 
1470 DATA 53, 2, 0, 35,129, 79, 16,247,205, 53, 2, 821 
1480 DATA 185, 40,218,195,119,123,205, 20, 3,205, 44,1357 
1490 DATA 124,205,248, 1,195,125,123,254, 67, 32, 6,1380 
1500 DATA 175, 50, 7,125, 24,173,254, 85, 32, 20, 62,1007 
1510 DATA 63,205, 51, 0,205, 12,124,205,175, 15,195,1250 
1520 DATA 125,123, 0,123,220, 0,102,123,254, 87,194,1351 
1530 DATA 119,123,205,199,123, 34, 62,125, 33, 90,123,1236 
1540 DATA 205,167, 40,205, 12,124, 34, 64,125, 33, 94,1103 
1550 DATA 123,205,167, 40,205, 12,124, 34, 66,125, 42,1143 
1560 DATA 64,125,237, 91, 62,125,175,237, 82, 35, 34,1267 
1570 DATA 64,125,205,132, 2, 62, 85,205,100, 2, 33,1015 
1580 DATA 7,123, 6, 6,126,205,100, 2, 35, 16,249, 875 
1590 DATA 42, 62,125, 17, 65,125, 26,183, 40, 8, 61, 754 
1600 DATA 18,175,205,186,125, 24,244, 58, 64,125,183,1407 
1610 DATA 40, 3,205,186,125, 62,120,205,100, 2, 42,1090 
1620 DATA 66,125,125,205,100, 2,124,205,100, 2,205,1259 
1630 DATA 248, 1,195,125,123, 71, 62, 60,205,100, 2,1192 
1640 DATA 120,205,100, 2,125,205,100, 2, 79,124,205,1267 
1650 DATA 100, 2,129, 79,126,205,100, 2,129, 79, 35, 986 
\ 1660 DATA 16,247,195,100, 2, 0, 0, 0, 0, 0, 0, 560 











Hypothek 





Hier ist ein Programm, das jeder 
haben muß. Wer sich nicht für 
die Hypothekenberechnung. inte- 
ressiert, der braucht die Routine, 
die es ermöglicht, den Cursor auf 
vorbestimmte Punkte innerhalb 
einer Maske zu setzen, ohne 
diese zu zerstören. Somit können 
an jeder Stelle Daten eingege- 
ben werden. Zusätzlich kann die 
Länge der Strings bestimmt wer- 
den, an .deren Ende der Cursor 


automatisch zum nächsten Punkt 
springt. Wird bei der Eingabe 
die Länge nicht erreicht, geht es 
mit RETURN weiter. Es können 
alphanumerische Daten verarbeitet 
werden. 

Wird für Video-Genie und TRS- 
80 das komplette Programm ver- 
wendet, müssen die Befehle 
STRING$(n,n), PRINTan, also 
die Maske, dem Bildschirm an- 
gepaßt werden. Colour ist zu 


entfernen. PEEK(n) ’Aktuelle’ set- 
zen. Die Änderung der Hard- 
copy ist aus dem Listing ersicht- 
lich. 

Zusammen mit dem Programm 
'HYPOTHEK‘, müßte ich das 
Ganze eigentlich kommerziell nut- 
zen. Ich weiß aber aus eigener 
Erfahrung, daß fast alle Häusle- 
bauer, Träumer und sonstige 
Hypotheknehmer arme Schluk- 
ker‘ . sind. Meine mitleidvolie 
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Seele hat mich also gezwungen 
das Programm zu veröffentlichen. 
Hier ist es: 

Nach dem Starten wird die Maske 


erstellt, Dann fordert das Pro- 


gramm die Summe der... aufzu- 
nehmenden Hypothek: ;an:: {SUM- 
ME). Danach wird..zu... (Zins- 
satz in %) gesprungen,: der nun 
eingegeben wird. Anschließend 
geht der Sprung zum: (Tilgungs- 
satz in %), nach dieser Eingabe 
verlangt der Rechner den Til- 
gungszyklus {Laufzeit bei n Mo- 
natstilgung)- Entweder monatlich 
= 1 oder 1/4 Jährlich = 3, v2 
jährlich = 6.3 

Gemeint::ist hiermit, daß Sie 
zwar monatlich an die Bank 
zahlen, diese aber evti. 1/4 o. 
1/2 jährlich mit Ihrem Schuld- 
konto abrechnet. 
Jetzt werden errechnet: 
Die monatlichen Zinsen 
Die monatliche Tilgung 
Die monatlichen Zinsen und Til- 
Zune ES 
Die Laufzeit. der Hypothek in 
Jahren 
Die Gesamtanzahl der Til- 
gungszyklen (GT) 
Die Gesamtzinsen der Laufzeit 
(GZ}, hier “quellen einem die 
Augen‘ 
Dazu wird noch die laufende 
Abnahme der Zinsen und die 


10 CLS:COLOURI 


gleichzeitige Zunahme der Tilgung 
pro Tilgungszyklus angezeigt. 

Am Ende der Rechnung er- 
scheint unter der Maske ein 
Menue: 

Neue Hypothek — 1 
Hardcopy — 2 
Änderung der Monatsbelastung —3 
Bei 1 Neustart 
Bei 2 Hardcopy der Maske mit 
Daten auf dem Drucker. 

Bei 3 kann die Monatsbelastung 
geändert werden. 

Es ist ja möglich, daß Ihr Chef 
Ihnen auf die Schulter klopft 
und Ihr Gehalt erhöht, nun 
können Sie die Tilgung herauf 
setzen. Das Programm fordert 
die Eingabe der (Aktuellen SUM- 
ME) an. Das ist die augenblick- 
liche Restsumme Ihrer Hypothek, 
sie geht aus der Bankabrechnung 
hervor. Danach den (Zinssatz in 
%) eingeben. Jetzt die bisherige 
monatliche Belastung plus Ände- 
rung, also: Zins+Tilgung+Erhö- 
hung in ! DM ! eingeben. (Mob. 

+ Aend.i.DM) 

Errechnet werden: 

Die neuen monatlichen Zinsen 

Die neue monatliche Tilgung ° 

Die neue monatliche Gesamtliei- 

stung 

Die neue verkürzte Laufzeit 

Dazu die Daten unter Befehl 1. 
Falls Sie einen Onkel in 


20 PRINT"COPYRIGHT BY ®* GERHARD FUZICHA x" 
30 PRINT"WALHOVENER STR.25 4047 DORMAGEN" : FORN=OTOAO0:NEKTSCLS 


40 CLEAR 1000: DEFSTR A-B:DEFINT L 


So COLDURS 


2 anna 
70 FRINTSTRING$ (14.35) 


Te MASKE --——-— 
::COLDURSSPRINT" HYPOTHEK " 


80 COLDURS: PRINTS24.STRING$ (16:35) 


Amerika beerbt haben und nun 
eine einmalige Sondertilgung vor- 
nehmen wollen, die monatliche 
Belastung aber unverändert bei- 
behalten möchten, nehmen Sie 
Befehi 3. Von der augenblick- 
lichen Resthypothek ziehen Sie 
die Summe der Sondertilgung 


ab und geben das Ergebnis als, 


(Aktuelle SUMME) ein. Den 
Rest wieder wie vom Programm 
gefordert. Sie erhalten nun die 
neue verkürzte Laufzeit. Soll bei 
einer Sondertilgung die Laufzeit 
belassen werden, um die monat- 
liche Belastung zu verringern, 
Befehl 1 anwenden. Die Sonder- 
tigung von der Grundsumme, 
daß ist die Summe der aufge- 
nommenen Hypothek, abziehen 
und unter (SUMME) eingeben. 
Weiter wieder wie vom Programm 
gefordert. 

Wird nach dem Läden und 
Starten des Programms die Maske 
2 gewünscht, an erster Stelle von 
(SUMME) ‚SHIFT * RETURN 
drücken. Das Programm springt 
zum Menue. Mit SHIFT KLAM- 
MERAFFE kann jederzeit ge- 
stoppt werden um sich Zwischen- 
ergebnisse anzusehen. 

Ich hoffe, daß Ihnen dieser 
kleine Durchblickerkurs von Nut- 
zen sein wird. 

Gerhard Puzicha 


’GEHDOERT NOCH ZUR ROUTINE 


wma mas mia Alm ame Herne TOER area One mm A A ne rare mm am ar an 


90 


100 
110 FOR V=40 TOD 800 STEF 40 
120 


FOR U=77 TO 837 STEF 40 


FRINTSU.» CHR$ (35) NEXT U "UMRADUNG DER MASKE 


PRINTSV» CHR$ (35) 2NEXT V 


130 PRINTS840, 5TRING$ (40: 35) 


140 


COLOUR 2:PRINTS97, 5 "SUMME":SCOLOUR 1 


150 PRINTS216, "======" 


1850 
170 


FRINTS241." Zinssatz in %" 
FPRINTS243."Tils.satz in %" 


180 FRINTS402. "Zins p.Monat" 
190 FRINTS423,. "Tils.p.Monat" 


200 FRINTSS70, "== - 
210 
220 





+ ==; : 
IFPEERK (17496) =65THENFRINTS253; "Mob.+ Aend.i.DM":PRINTS3S6- "DM" 
PRINTSS32,. "Zins + Tilsuns" 








| 














230 
240 
250 
250 
270 
280 
290 
300 
310 
E20 
S30 
340 
350 
E60 
>70 
3:80 
390 
400 
410 
420 
430 
440 
450 
440 
470 
480 
490 
S0Q 
510 
520 
530 
>40 
530 
Sn 
570 
580 
S9FO 
00 
610 
620 
630 
640 
50 
GA0O 
670 
680 
630 
700 
710 
720 
730 
740 
750 
760 
770 
780 
770 
800 
8io 
820 
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PRINTS6B4: "Laufzeit bei ”? Monatstilsuns" 


Femme ZIELPUNKTE:»STRINGSLAENGE FÜER RBUTINE mm 
PFRINTS176."": "ZIELFUNET (SUMME) 

L=5:G0SUB 750 "L=LAENGE VON - (SUMME) 

S=VAL (BE) 

IF FEEK (17584) =42 THEN G0TO 670 °17584=5FEICHERPL.DER ERSTEN- 
PRINTS32S:""3 "ZAHL VON SUMME; 42=5TERNCHEN 
L=4:G0SUB 750 

Z=VAL {E$) 

FRINTSS46:""5 


L=7:G05UB 750 . 

T=VAL (B$) 

PRINTS6YB> " . 
FRINTS698B-""5 

L=2:60SUR 750 

TZ=VAL(B$) 

IF TZ=1 THEN X=12:50T0 430 
IF TZ=5 THEN X=4:60T0 430 
IF TZ=& THEN X=2:50TT0 410 
B0T0 Sss0 


Z21=(5/100) 2/12 
FRINTS482: USING’ ##4##. #1 
IF FEEK (17496) =65 THEN T1=T-21:50T0480 
T1=(5/100)XxT/12 
FRINTSTOIF:USING’HHAH. HH" S TI 
ZT=TirZi 
EDLOURS:FRINTS614: USING" #HHH. #4" ZT3 PRINT" DM"'SCOLOURI 
ZT=ZT*TZ 
Ti=T1XTZ 
J=0 
5=5-T1 
J=J+1 
R=J/X3 COLOUR2: PRINTST774: USING’HR. ##" RS SCOLOURL:PRINT" Jahre" 
PRINTS122. "GT"3:COLDURZIFRINT JSCOLOUR 1 
In S<=0 THEN 570 
=((5/100I #82) /X 
GZ=GZ+Z2: PRINTS 146, "62 "3: COLOURZIPRINTUSING"#HHHHH. #"362Z 
PRINTSS6A2. USING" #HHH. ##"5 72 


T1=2T1T-72 

FPFRINTSS8B9- USING" #44. 4#"5 11 

FOR N=0 TO 200: NEXT ’ BESEHWINDIGKEITSVERZDOEGERUNG 

seid 540 
| MENUE —— mm m nn nn 
PELNTEEBO HR Hypothek ==> 1 :Hardcopy ==> 2 " 

PRINT"Aenderuns der Monatsbelastuns ==> 53 "5 

INPUT C 


IF C<1 OR C>S THEN GDTO 690 

IF C=1 THEN RUN 

IF C=2 THEN GOTD 820 

IF C=3 THEN CLS=PRINTS88; "Aktuelle ":PRINTCHRS (28) 3:G0T0 40 
u nn ROUTINE mm nn 
=" N EPRINTCHR$ (14) 3 

A=INKEY$:IF A>=""AND A=CHR$(13) THEN PRINTCHRS (15) H:RETURN 

IF A>CHR$(31) AND LEN{B)<LTHENPRINTAS:B=B+A 

IF B>"" AND AsCHR$(B) THEN PRINT AstB=LEFT$S(BHLEN(DI-1) 

IF A=CHR$ (24) THENPRINTSTRING$ (LEN (B) 8) 5: B="" 

IF LEN{BI=L THEN PRINTCHR$(15)55RETURN ELSE 760 

I--_- nn HARDEOPY 7 

M=17407 " TEXTSPEICHERFL. © 














830 FOR Z=1T022 
840 FOR Y=1T039 
850 
B60 NEXTY 
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"ZEILENZAHL 
"ZEICHEN FRÜO ZEILE 


=M+1:F=PEEF: {M) :LPFRINTCHRS$ (F) : 


870 M=M+1:F=PEEK (M} SLPRINTCHRS$ (F}) 


880 NEXTZ 
890 GOTO 670 





GRAFIK 
ÜBERSETZER 


Sie haben sich sicher schon oft da- 
rüber geärgert, daß man beim Co- 
lour Genie Text und Grafik nicht 
mischen: kann. Ausserdem kann 
man die Grafik-Befehle, wie z. B. 
PAINT;:PLOT und CIRCLE nicht 
im Schriftmodus benutzen. Diesen 
Nachteil versucht das folgende 
Programm zu. mindern. Das .Pro- 
gramm übersetzt ein Feld. von 80 
mat 96. Punkten in eine Matrix, die 
aus 10 mal 12.:programmierbaren 
Zeichen zusammengesetzt ist. Es 
werden jedoch nur die Farben 
Blau und Grün übersetzt, da nur 
jeweils das erste Bit abgefragt 
wird. 
Nun zum Programm: 

Die Initialisierung und die Siche- 
rung wurde in ähnlicher Form aus 
der GENIE DATA Nummer 4 
übernommen. In den Zeilen 1230 
bis 1260 werden die Disk-Befehle 


ı0 ORG ÖBEDSOH 
20 ANFANG FUSH HL 


= LD HL» OÖF410OH 
20 LD (2067) Hl. 
So LD HL: 18432 
60 LD (-3069) HL 
70 . LD Mi12 

80 LD (-3072) 2A 
70 LD A: 10 

100 LD (-307D.A 
110 LD A»68 

120 LD (-3070):A 
130 LD HL» 17408 


"Programm umbelegt. 


GET, PUT und CLOSE für das 
In den As- 
sembler-Zeilen 20 bis 160, die mit 
dem Befehl GET aufgerufen wer- 
den können, werden die Daten, 
die zur Übersetzung benötigt wer- 
den, eingelesen. In die Adressen 
—3069 bis bis 68 wird der Wert 
geladen, der die linke obere Ecke 
des zu übersetzenden Feldes an- 
gibt. In den Adresse —3065 und 
— 3064 steht der Wert, der auf die 
linke obere Ecke des Zielfeldes 
zeigt. Die restlichen Adressen 
werden zur internen Verarbeitung 
benötigt. Mit dem Befehl CLOSE 
wird eine Übersetzung gestartet, 
die bei der Adresse 18432 im 
FGR-Modus beginnt und das Ziel- 
feld in die linke obere Ecke des 
LGR-Bildschirms legt. Um die 
Schreib-Lese-Felder versetzen zu 
können, gibt es die Befehle GET 


und PUT. Mit dem Befehl GET 
werden zum Übersetzen nötige 
Daten organisiert. Danach können 
die Feldadressen im Basic durch 
Pokes geändert werden. Danach 
wird die eigentliche Übersetzung 
mit dem Befehl PUT gestartet. Da 
bei der Übersetzung die Rechen- 
und Feld-Daten jedesmal zerstört 
werden, muß vor jedem PUT ein 
GET Aufruf erfolgen. Der CLOSE 


Befehl beinhaltet nur die Befehle 


GET und PUT hintereinander 
(Zeilen 1180-1200). 

In den Zeilen 230 - 470 läuft 
die eigentliche Übersetzung. In 
den Zeilen 180 - 220 und 480 - 
830 stehen die Schleifen, die für 
die Übersetzung nötig sind. In den 
Zeilen 840 - 1070 wird das Feld in 
den LGR Modus übertragen. 


Hans-Ulrich Schlieben 





140 LD (-30585) > HL. 
150 FOR HL 

160 RET 

170 STARTN FUSH HL 


180 LOOFOO LD HL» (-3069) 
190 LD D> (HL) 
200 INC HL 
a LD E> (HL) 
20 LD A:.0O 
230 BIT 6&:D 
240 JF Z:WEITOO 
250 SET 7A 


260 WEITOO BIT 4,D 
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270 
280 
290 
OO 
Zi0 
AO 
>40 
350 
360 
370 
380 
30 
200 
410 
420 
430 
440 
435) 
460 
470 
480 
495 
300 
10 
520 
Sao 
540 
Sc 
560 
70 
380 
Sr 
SONO 
lo 
20 
u30 
&40 
650 
[=Y18) 
570 
5680 
HI 


700 
710° 


72 

720 
720 
750 
760 
770 
780 
790 
BO0 


- 810 


820 
830 
840 
BHO 
BO 


JF Z»WEITOL 
SET &:R- 
WEITOl BIT Z:D 
JF Z,WEITOZ 
SET SA 
WEITOZ BIT 0:D 
JF Z,WEITOS 
SET 4A 
WEITOSZS EIT &E 
JF 2,WEITO4 
SET >A 
WEITO4 BIT 4:E 
JF Z»WEITOS 
SET 2>A 
WEITOS BIT 2>E 
JF Z.WEITO& 
SET 1:A 
WEITOA BIT ÖsE 
JF 2,WEITO? 
SET 0:,A 
WEITO? LD HL» (-230687) 
LD (HLI:A 
ING HL 
LD (-3067) HL 
LD A» (-3070) 
DEC A 
JF Z»SCHLO1 
LD (-3070) >, A 
LD DE: 40 
LD HL» (-3069 
ADD HL:DE 
LD (-3069) HL 
JF LOOFOO 
SCHLOI LD A:8 
LD (-3070) A 
LD As» (-3071) 
DEU A 
JF Z»SCHLO2 
LD (-307D>A 
LD DE: 278 
LD HL» (-3059) 
sScF 
CCF 
SEC HL»DE 
LD (-3087) HL 
Jr LDOPOO 
SCHLOZ LD A»10 
LD (-2072D>A 
LD A» (-3072) 
DEC A 
JF Z».NLADEN 
LD (-3072) A 
LD HL» (-3069) 
LD DE.22 
ADD HL; DE 
LD {-3089) HL. 
JF LODOFOO 
NLADEN LD A,12 
LD 1-207D.A 
LD A.10 
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870 L.D (-2070).A 
BO LD B» 130 

890 LD HL» (-3045) 
900 LODBFiO .NOF 

710 LD {HLI>R 
720 INC EB 

YO LD As (-3070) 
940 DEC A 

9750 JF Z»:AUSGARB 
YO LD 1-3070) A 
770 INC HL 

FB0 JP LOOFIO 
770 AUSGAB LD DE»S1 
1000 ADD HL.DE 
1010 LD A» (-3072) 
1020 DET A 

1030 JF Z:RUECH 


1040 LD (-%072 A 
1050 LD A: 10 
1060 L.D (2070), A 


1070 JF LOOFIO 
1080 RUECK FOF HL 
1090 RET 


1100 INIT LD AsOCHH 
1110 LD (41E2H)»A 
1120  CALL ANFANG 
1120 LDMöÖ 

1140 LD (431CH) A 
1150 LD HL» ANFANG 
1160 DEE HL 

1170 JF 102H 

1180 KOMFLE CALL ANFANG 
1190 CALL STARTN 
1200 RET 

1210 ORG 41E2H 
1220 JF INIT 

1220 ORB 417FH 
1240  JF ANFANG 
1250 JF STARTN 
1260  JF KOMPLE 
1270 END INIT 


Die nächste GENIE DATA erscheint am 
15. Januar 1984. 


* 


Anzeigenannahmeschluß für Nummer 6 ist 
der 10. Dezember 1983. 
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. STEIGEN SIE IN IHREN HELIKOPTER. Lassen Sie sich von dem faszinierenden Geräusch des Motors Ihrer Ma- 


“ben treffsicher. einsetzen, dann haben Sie die Möglichkeit unterwegs zu tänken. Sie können waagerecht, senkrecht 
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schine begeistern |Es geht durch die Lüfte über Landschaften die flach sind, über rauhes Gelände und Berge. Ausge- 
rüstet ist Ihr Helikopter mit den besten Waffen (Sie werden sehr überrascht sein!). Wenn Sie Ihre Kanonen und Bom- 


und auch schräg fliegen. Es ist’ einfach nervenzerfetzend! Dann geht der Flug weiter durch eine lange Felsengrotte 
und Berglandschaften zu einer Stadt. Unterwegs könrien Sie die in Not geratenen Menschen retten, bei guten fliege- 
rischem Können. Die Menschen winken Ihnen zu. Vorsicht vor den Feinden, die auch nicht schlecht schießen, die 
Grafik und die abwechselnde Farbenpracht wird Sie begeistern. Dann kommt nach längerem Flug und weiteren inte- 
ressanten Landschaften ein künstlicher Tunnel. Bis Sie dann nach acht Spielstufen den weißen Elefanten der Maha- 
rani sichten, den Sie ganz niedrig überfliegen müssen. Sollten Sie dieses Ziel erreichen, dann erhalten Sie einen Son- 
derbonus von 10.000 Punkten. Das Spiei ist eine einzige Nervenanspannung und großes Können muß bewiesen wer- 
den denn sonst sehen Sie den weißen Elefanten nie! Dieses Spiel ist echt seine Dollars wert und bestimmt noch etwas 
mehr. . j 
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10 versch. Spiel-Szenen, ganz tolle Grafik, Top Sound! 
GORILLA: In Multi-Colour und HUBI-Vision 
GORILLA: Er sollte auf Ihrem Bildschirm sein! 
Ein Superspiel, was Ihnen immer wieder große _ 
Freude bereitet und fasziniert! 













Die brandheiße 
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